XL 2013 Masquer et afficher un graphique à l'aide d'une case à cocher

[Meridmy]

Bonjour à tous,

Je souhaiterai masquer et afficher un graphique à l'aide d'une case à cocher, c'est à dire que dès que la case est "vrai" le graphique s'affiche et dès qu'elle est décochée le graphique est masqué.

J'ai utilisé ce code :

Sub IndicateurMaP()

If Range("K2").Value = False Then
ActiveSheet.Shapes.Range(Array("Group 5")).Visible = False
Else
ActiveSheet.Shapes.Range(Array("Group 5")).Visible = True
End If

End Sub

Le graphique disparaît mais ne s'affiche pas.

Merci d'avance