Gestion d'objets selon condition

Bonjour a tous.

Je suis entrain de réaliser un projet , et j'ai besoin , afin de clarifier ma page ,

de faire apparaitre une fleche et un rectangle en fonction de l'etat du bouton de commande .

J'ai essayer le code si dessous

If toggleButton1.value=true then

Shapes("Rectangle2").visible=true

Else Shapes("Rectangle2").visible=false

End if

Mais cela ne fonctionne pas . C'est une manoeuvre qui me semble simple mais je ny arrives pas

Je vous joint un fichier excel avec des explications .

Merci

Dans l'attente de votre aide

Bonjour

Il faut bien nommer les Shapes

Private Sub ToggleButton1_Click()
  If ToggleButton1.Value = True Then
    ToggleButton1.Caption = "OUI"
    Shapes("Trait 4").Visible = True
    Shapes("Trait 5").Visible = False
    Shapes("Rectangle 2").Visible = False
  Else
    ToggleButton1.Caption = "NON"
    Shapes("Trait 4").Visible = False
    Shapes("Trait 5").Visible = True
    Shapes("Rectangle 2").Visible = True
  End If

End Sub