Couleur de remplissage en fonction d'un indicateur - Ms Project

Bonjour,

Je gère un planning et j'aimerai lorsque je sélectionne dans mon texte 3 qui contient une liste déroulante de services que la couleur de cette case chage en fonction du service choisi, les couleurs sont prédéfinit.
Le choix de mon text est en lien avec un indicateur pour la couleur des tâches de mon diagramme et j'ai pensé en premier lieu à faire ça en fonction de cet indicateur
J'ai essayé le code suivant mais il ne se passe rien.

Sub RemplissageSi()
' Macro RemplissageSi
CouleurAménagement = 1929183
taches = ActiveProject.Tasks.Count
For i = 1 To taches
If InStr(1, ActiveProject.Tasks(i).Flag11, "Aménagament", vbTextCompare) <> 0 Then
SelectTaskField Row:=i, Column:="Texte3", rowrelative:=False
FontEx CellColor:=1929183
End If
Next i
End Sub