masquer ligne si certaine cellules vides

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

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