Suppression lignes vides

Bonjour à toutes & tous,

Je souhaiterais pouvoir supprimer des lignes vides (voir exemple en annexe) de manière rapide car le vrai tableau a plusieurs centaines de lignes. Manuellement, c'est assez fastidieux.

Merci à vous

Bonjour,

Sub supplignes()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
    If Cells(i, Columns.Count).End(xlToLeft).Column = 2 Then Rows(i).Delete Shift:=xlUp
Next
End Sub

avec le fichier ...

Rechercher des sujets similaires à "suppression lignes vides"