Bonjour kromitou,le Forum,
suprime lignes vides.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For n = Range('A65536').End(xlUp).Row To 1 Step -1
On Error Resume Next
If Cells(n, 1) = '' Then Rows(n).Delete
Next n
Application.ScreenUpdating = True
End Sub
Salut Yves