Sub SupprimerLignesVides()
Dim c As Long
Dim vLigne As Long
vDernièreligne = Sheets(Sheets.Count).UsedRange.Rows.Count
Application.ScreenUpdating = False
For vLigne = vDernièreligne To 1 Step -1
If Application.CountA(Rows(vLigne)) = 0 Then Rows(vLigne).Delete
Next
End Sub