En triant les lignes ou par une macro qui supprimera les lignes vides, par exemple :
Sub SupprimeLignes()
Dim Ligne As Long, I As Long, Del
For I = 1 To 65000
If Range("A" & I).Value = "" Then
ActiveSheet.Rows(I).Delete
Del = Del + 1
I = I - 1
Else
Del = 0
End If
If Del = 2 Then Exit For
Next I
End Sub