Sub SupprimeLigneVide()
Dim i As Long, dl As Long 'déclaration des variables
Application.ScreenUpdating = False 'évite le scintillement de l'écran
With Sheets("Feuil1") 'agit sur la feuille 1 uniquement.... à adapter
dl = .UsedRange.Rows.Count 'définit le nombre de lignes
.Cells.UnMerge 'supprime la fusion des cellules
For i = dl To 1 Step -1 'boucle de la dernière ligne à la première
If Application.CountA(Range("A" & i & ":I" & i)) = 0 Then Rows(i).EntireRow.Delete 'supprime les lignes vides (de colonne A à colonne I)
Next i 'fin de la boucle
End With
End Sub