Affichage d'objet conditionné

Bonjour à tous,

Dans le classeur ci joint, j'aimerai un bout de code vba permettant de faire disparaître (ou rendre transparent) l'objet 'connecteur droit 7' si la liste de déroulante en I9 = 'A faire', et au contraire le rendre apparent si la liste affiche 'Terminé'.

Une âme charitable pour m'aider ?

Bonsoir

Essaye

Sub Zonecombinée4_QuandChangement()
With ActiveSheet.Shapes("connecteur droit 7")
.Visible = IIf(Range("H9") = 1, True, False)
End With
End Sub

Amicalement

Nad