Apparaître/Disparaître une forme selon les données d'une case

Bonjour,

Je suis capable de faire apparaître/disparaître un bouton ActiveX en rentrant la valeur 10 dans la case A1 à l'aide de ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Range("A1").Value = "10" Then

CommandButton1.Visible = True

Else

CommandButton1.Visible = False

End If

End Sub

Mais si je fais la même chose pour une forme cela ne marche pas:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Range("A1").Value = "10" Then

Rectangle2.Visible = True

Else

Rectangle2.Visible = False

End If

End Sub

Si quelqu'un est capable de me dire pourquoi ce serait très apprécier.

Merci!