sub efflign()
Dim derLigne
Dim I
derLigne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
Application.ScreenUpdating = False
For I = derLigne To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(I)) = 0 Then
Rows(I).Delete
End If
Next I
End Sub