Bonjour,
J’ai cette macro qui efface les lignes vides :
Sub efface_vide()
Dim l As Long
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Cells(l, "A").Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub
Ensuite, je veux exécuter cette macro sur 30...