Sub Supprimer_Lignes_Vides()
Dim derligne As Long, ligne As Long, Plage As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
derligne = Cells(Application.Rows.Count, 7).End(xlUp).Row
For ligne = derligne To 9 Step -1
If Application.WorksheetFunction.CountBlank(Cells(ligne, 1).Resize(, 7)) = 7 Then
If Plage Is Nothing Then
Set Plage = Rows(ligne)
Else
Set Plage = Union(Plage, Rows(ligne))
End If
End If
Next ligne
If Not Plage Is Nothing Then Plage.EntireRow.Delete
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub