Option Explicit
Sub Del_Lig()
Dim DerL&, Lig&
DerL = Feuil1.Range("D" & Rows.Count).End(xlUp).Row
For Lig = 2 To DerL
With Feuil1
If WorksheetFunction.Sum(.Range("D" & Lig), .Range("E" & Lig)) = 0 Then Rows(Lig).EntireRow.Delete
End With
Next Lig
End Sub