Comment supprimer toutes les lignes vides ?

sub SuppLigneVides()
 With ActiveSheet.UsedRange
  derLi = .Row + .Rows.Count - 1
 End With
 Application.ScreenUpdating = False
 For r = derLi To 1 Step -1
  If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
 Next r
 end sub

Attention, il est important de toujours commencer par le bas et de remonter !