Tu n'as pas choisi un contrôle ActiveX pour ta CheckBox, ce n'est pas le même type d'objets, et la syntaxe est différente.
Voilà une possibilité :
Sub test()
Dim vis As Boolean
With ActiveSheet
If .Shapes("Check Box 1").ControlFormat.Value = xlOn Then vis = True
.Shapes("Graphique 2").Visible = vis
End With
End Sub
NB- Utilise la balise Code dans le post et indente ton code (au bout d'un certain temps je ne lis plus le code non conforme aux normes d'écriture).