masquer plusieurs colonne sur plusieurs feuille avec critère

[Tintin41]

Bonjour depuis hier je m'arrache les cheveux
Je dois masquer plusieurs colonnes sur plusieurs feuilles hormis 2 feuilles de config selon un critère (s'il y a un 0 dans la celulle J3 à X3)
J'espère que quelqu'un pourra m'aider
mon code qui fonctionne sur une feuille je l'active par un bouton
---------------------------------------------------------------
Sub Masquer_Col()
For Each Cell In ActiveSheet.Range("$J$3:$x$3"):
If Cell.Value = "0" Then
Columns(Cell.Column).Select
Selection.EntireColumn.Hidden = True
End If
Next Cell
End Sub
---------------------------------------------------------------
Merci d'avance à vous

 

[tomocam]

Salut,

Essaye avec la fonction suivante:

Sub test()

Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name = "nom de la feuille à éviter" Then
        
        Else
        ws.Activate
        For Each Cell In ActiveSheet.Range("$J$3:$x$3"):
            If Cell.Value = "0" Then
            Columns(Cell.Column).Hidden = True
            End If
        Next Cell
    End If
Next ws

End Sub

 

[Tintin41]

Super merci Beaucoup ça fonctionne et Bonne journée