Cacher case à cocher en même temps que la colonne

bonjour

j'ai une case à cocher (form controls et non pas activeX) qui s'appelle "checkbox18". Elle est liée à la cellule I8.

J'ai une macro qui, en cliquant une autre case à cocher (checkbox13), masque toute ls colonne I (ça marche) mais pas la case à cocher qui est dans cette colonne (et est liée à la cellule I8).

La macro originelle (placée dans un module) qui cache la colonne fonctionnait, mais les deux lignes (ici en gras) que j'ai ajouté bloquent...

Sub CheckBox13_Click()

If Sheet3.Range("H7").Value = True Then

Sheet3.Columns("I").EntireColumn.Hidden = False

Sheet3.Shapes("Checkbox18").Visible = True

Else

Sheet3.Columns("I").EntireColumn.Hidden = True

Sheet3.Shapes("Checkbox18").Visible = False

End If

End Sub

Si quelqu'un peut m'aider....

Bonsoir,

'

j'ai ajouté bloquent...

comment ce manifeste ce blocage ?

les deux lignes en gras (celles que j'ai ajouté), deviennent jaune...