Masquer une colonne sous certaines conditions

Bonsoir,
Je cherche à masquer de façon automatique la colonne B si la valeur "x" existe en A1.
J'ai placé ce code pour la feuille considérée:
*************************************
''''lecture en A1
If Range("A1") = "x" Then
'''si A1=x alors masquer la colonne B
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
Else
''Autrement visible
Selection.EntireColumn.Hidden = False

End If
***********************************
Cela ne fonctionne pas.
Quelqu'un a une idée?
Merci de votre aide