Afficher rectangle en fonction de valeur autre feuille

Bonjour à tous,

J'aimerai afficher ou cacher une forme (rectangle bleu) en fonction d'une valeur sur une autre feuille...

Si Feuil1 E3 = OUI alors on affiche le rectangle en Feuil2

sinon on n'affiche pas le rectangle.

J'ai essayé ce code VBA mais il ne fonctionne pas :

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Feuil1").Range("E3") = "OUI" Then
    ActiveSheet.Shapes("Rectangle1").Visible = True
Else
    ActiveSheet.Shapes("Rectangle1").Visible = False
End If

End Sub

Je vous joins le fichier pour que vous compreniez mieux...

Merci pour votre aide

Bonjour,

Mettre cette macro dans Feuil1 (et non pas dans Feuil2)

Private Sub Worksheet_Change(ByVal Target As Range)
   Feuil2.Shapes("Rectangle1").Visible = Feuil1.Range("E3") = "OUI"
End Sub

A+

Merci beaucoup galopin