effacer les lignes vides

Bonjour,

Avec les commandes du menu:

-Selectionner le tableau
-Edition/Atteindre/Cellules/cellules vides
-Edition/Supprimer

En macro:
(test vide en colonne A)
Sub toutes_vides_colonneA()

Sheets("feuil1").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Cordialement JB

Suite,

Pour supprimer les lignes vides dans toutes les colonnes:

Sub supprime_lignes_totalement_vides()
dernière_ligne = ActiveCell.SpecialCells(xlLastCell).Row
For i = dernière_ligne To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
End Sub