Sub Supprime_ligne_vide()
Dim i&
Application.ScreenUpdating = False
With Sheets("Test")
For i = Range("H" & Rows.Count).End(xlUp).Row To 24 Step -1
If Left(Cells(i, 8).Formula, 2) = "=G" And Cells(i, 8) = 0 Or Cells(i, 1) = "" Then Rows(i).Delete
Next
End With
End Sub