Sub test()
Dim i&, X&, Y&
Dim Plg1 As Range, Plg2 As Range
Application.ScreenUpdating = 0
With Sheets("Feuil1")
For i = 4 To .Cells(Rows.Count, 1).End(xlUp).Row
Set Plg1 = .Range(.Cells(i, 3), .Cells(i, 7))
Set Plg2 = .Range(.Cells(i, 11), .Cells(i, 15))
Y = WorksheetFunction.Sum(Plg1)
X = WorksheetFunction.Sum(Plg2)
Rows(i).Hidden = X + Y = 0
Next i
End With
Application.ScreenUpdating = 1
End Sub