Masquer automatiquement des colonnes

Bonjour,

Je voudrais masquer automatiquement par macro toutes les colones d'un tableau excel qui auront la valeur 0 en ligne 1.

Toutes les valeurs 1 présentes sur cette ligne seront affichées à l'écran et imprimables.

Je me charge de la formule pour obtenir 0 ou 1 mais je ne sais pas comment créer la macro pour arriver à ce résultat.

Merci de votre aide.

Je sais que c'est pas sorcier mais je ne suis pas assez fort en macro pour cela.

Magic

Bonsoir,

Sub MasqueCol()
Dim cL%, i%
    Application.ScreenUpdating = False
    cL = Cells(1, 256).End(xlToLeft).Column
    Range(Cells(1, 1), Cells(1, cL)).EntireColumn.Hidden = False

    For i = 1 To cL
        If Cells(1, i) = 0 Then Columns(i).Hidden = True
    Next i
End Sub

Amicalement

Claude

Parfais,

Merci beaucoup!

Bonjour,