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