Sub MasqueColonnne()
Dim Ligne As Long, Colonne As Long, i As Long
Application.ScreenUpdating = False
With Range("A4").CurrentRegion
Ligne = .Rows.Count
Colonne = .Columns.Count
For i = 1 To Colonne
.Cells(Ligne, i).EntireColumn.Hidden = False
If .Cells(Ligne, i).Value = 0 Then .Cells(Ligne, i).EntireColumn.Hidden = True
Next i
End With
Application.ScreenUpdating = True
End Sub