Afficher masquer colonne selon valeur d'une cellule

Bonjour à tous

Mon problème est probablement trivial pour vous. Pour moi, c'est + compliqué.

Je veux à partir d'une case à cocher, soit afficher soit masquer la colonne A.

Le fichier est joint.

Merci beaucoup pour votre aide

bonjour,

un essai

Option Explicit
Sub Caseàcocher1_Clic()
 If Sheets("Feuil1").Range("B1") = True Then

    Columns("A:A").Hidden = True

   Else
   If Sheets("Feuil1").Range("B1") = False Then

    Columns("A:A").Hidden = False
   End If
   End If
End Sub

Merci beaucoup. Et dire que j'ai cherché pendant 2 heures pour savoir d'ou provenait l'erreur.

Tous mes remerciements

pas de soucis, pense a mettre ce post en résolu

cela évite a nos membres qui veulent nous aider d'y aller pour rien

cordialement