Sub EnleveLigne()
Dim DerLig As Long, i As Integer
Application.ScreenUpdating = False
DerLig = Range("A65530").End(xlUp).Row ' Colonne à changer éventuellement
For i = DerLig To 2 Step -1
If Cells(i, 7).Value = "" Then Rows(i).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub