Sub SupressionLigneVide()
Dim DLig As Long, Lig As Long
' Empècher l'actualisation de l'écran
Application.ScreenUpdating = False
' Trouver la dernière ligne du tableau
DLig = Range("X" & Rows.Count).End(xlUp).Row
' De la dernière ligne à la première
For Lig = DLig To 1 Step -1
' Si le contenu de la cellule est vide
If Range("X" & Lig).Value = "" Then
' On supprime la ligne
Range("X" & Lig).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub