Bonsoir,
Code à copier dans un module.
Cdlt
Option Explicit
Public Sub SupprimerLignesVides()
Dim sH As Worksheet
Dim Plage As Range
Dim i As Integer
Application.ScreenUpdating = False
Set sH = Worksheets(1) 'numéro de feuille ou son nom "Feuil1"
With sH
'on définit la plage
Set Plage = .Range("A3:A100")
'Boucle sur les cellules de la plage
For i = Plage.Count To 3 Step -1
'si la cellule est vide, on supprime
If Cells(i, 1) = "" Then Cells(i, 1).Delete xlUp
Next i
End With
Set Plage = Nothing
End Sub