Re,
Essaie avec ce code :
Sub test()
'Macro Dan nicomar2011 le 28/10/2010
Dim dlg As Long, i As Long
dlg = Range("A65536").End(xlUp).Row
For i = dlg To 6 Step -1
If WorksheetFunction.Sum(Range("H" & i & ":L" & i)) = 0 Then
Rows(i).EntireRow.Delete
End If
Next
End Sub
Code à placer en VBA et à associer éventuellement à un bouton
J'ai supposé que la dernière colonne de ton tableau est la colonne L
Amicalement