Macros + Liste déroulante contrôle de formulaire

Bonjour à tous,

J'ai créé une liste déroulante à partir de la boite à outils > contrôle de formulaire (la plus esthétique).

J'ai 4 mots dans la liste et j'aimerais qu'à chacun d'eux soit attribué une macro.

J'ai cherché un peu et j'ai adapté ce code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "Zone combinée 1" Then
       Select Case Target.Value
          Case "RELANCE J et J+"
             Call ROUGE
          Case "RELANCE J-1"
             Call ORANGE
          Case "RDV OK"
             Call VERT
          Case "RELANCE A VENIR"
             Call BLANC
          Case "LISTE COMPLETE"
             Call BASE
       End Select
    End If
End Sub

Mais il ne fonctionne pas, pourriez vous m'aider à le corriger ?

Je vous remercie par avance !

Bonne journée à vous.

Bonjour

A ton fichier cela serait plus facile à trouver une solution

Macro à placer dans un module standard

Sub Zonecombinée1_QuandChangement()
  Select Case Feuil1.Shapes("zone combinée 1").ControlFormat.ListIndex
    Case 1
      Rouge
    Case 2
      Orange
    Case 3
      Vert
    Case 4
      Blanc
  End Select
End Sub

Clic droit sur ton contrôle --> Affecter une macro ---> sélectionne cette macro

Cela fonctionne impecablement bien.

Merci à toi !

Bonne journée.