Sub Masquer_Tableau()
Dim i As Long
With Sheets("Feuil2")
For i = 4 To .Cells.Find("*", , , , xlByColumns, xlPrevious).Column Step 4
If .Cells(2, i).Value <> 0 Then
.Range(.Cells(2, i - 2), .Cells(2, i)).Columns.Hidden = False
Else: .Range(.Cells(2, i - 2), .Cells(2, i)).Columns.Hidden = True
End If
Next i
End With
End Sub