Sub SupLigne()
Dim I As Integer
For I = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(I, 1) = "" Then Cells(I, 1).EntireRow.Delete
Next I
End Sub
Sub DELVIDES() ' syntaxe qui me va bien
[A:A].SpecialCells(4).EntireRow.Delete
End Sub
Sub DELVIDESII()' syntaxe plus orthodoxe et plus accessible
Dim DERLIGNE As Long 'dernière ligne non vide
Dim MES_CELLULES_VIDES As Range
DERLIGNE = Range("A" & Cells.Rows.Count).End(xlUp).Row 'On trouve le numéro de la ligne
Set MES_CELLULES_VIDES = Range("A1:A" & DERLIGNE).SpecialCells(xlCellTypeBlanks) 'On identifie les cellules vides
MES_CELLULES_VIDES.EntireRow.Delete 'on efface les ligne contenants des cellules vides
Set MES_CELLULES_VIDES = Nothing
End Sub