Ma question est dans le titre du sujet... J'analyse le contenu de fichiers, et je souhaite supprimer les lignes qui sont vides  
 
Je sais comment ouvrir, écrire modifier les fichiers.
 
Je veux rajouter ceci :  
 
si   ligne ="" alors
    supprimer ligne
finsi
 
 
Merci

un ptit up!

Il faut :
 
1. ouvrir un autre fichier en création,
2. y recopier toutes les lignes sauf les lignes vides.
3. supprimer l'ancien fichier, et renommer le nouveau avec l'ancien nom.
 
Désolé, mais c'est le seul moyen.

 
OK, j'ai pensé à ça aussi.  Je me disais qu'il y avait peut être une autre solution mais tant pis.   Je vais faire avec. Merci olivhill pour ta réponse.  

   Columns("A:A" ).Select
    Selection.Insert Shift:=xlToRight
    Range("A1" ).Select
    Application.CalculateFull
    ActiveCell.FormulaR1C1 = "1"
    Range("A3" ).Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A5" ).Select
    ActiveCell.FormulaR1C1 = "3"
    Range("A1:A6" ).Select
    Selection.AutoFill Destination:=Range("A1:A30000" ), Type:=xlFillDefault
    Range("A1:A30000" ).Select
    Cells.Select
    Range("A30000" ).Activate
    Selection.Sort Key1:=Range("A1" ), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

 
Dolu007 ... je suis en VBS et non pas en VBA