Sub Masque()
Dim lig As Variant, c As Range
lig = Application.Match("Total général", [A:A], 0)
Application.ScreenUpdating = False
With [F:AB]
.Columns.Hidden = False
If IsError(lig) Then Exit Sub
For Each c In .Rows(lig).Cells
If c = 0 Then c.Columns.Hidden = True
Next
End With
End Sub