Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sub Supprime_lignes_vides()
Dim I As Long
For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete
Next I
End Sub
DaubeBonsoir llambry et le forum.
Pour effacer de A2 jusqu’à 65000 si colonne A est vide.
Code:Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
A +
Ne marche pasRe : VBA supprimer les lignes vides
Bonjour le Fil, le Forum,
Voici une macro élaborée par Hervé, que je remercie .
Code:Sub Supprime_lignes_vides() Dim I As Long For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete Next I End Sub
Bonne soirée.
Range("A2:A65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete