Masquer colonne sous condition

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

Bonjour

Ton Selection de la seconde partie ne dit pas quelle est la selection

Sub Masque()
If Range("A1") = "x" Then
'si A1=x alors masquer la colonne B
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
Else
'Autrement visible
Columns("B:B").Select
Selection.EntireColumn.Hidden = False
Columns("B:B").Select
End If
End Sub

Cordialement

Merci pour la réponse,

Je ne cherche pas une commande manuelle je veux qu'elle soit automatique.

J'ai trouvé:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1") = "x" Then

'''si A1=x alors masquer la colonne B

Columns("B:B").EntireColumn.Hidden = True

Else

''Autrement visible

Columns("B:B").EntireColumn.Hidden = False

End If

End Sub