Sub SuppLigneVides()
Sheets('feuil1').Select
Range('A1').Select
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For i = derLi To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End Sub