Format étiquette de données dans un graphique via VBA

Bonjour à tous !

J'ai un petit soucis dans un graphique ou j'essaye désespérément de mettre en forme des étiquettes de données.

Un bon fichier joint valant toutes les explications.

J'ai essayé via une macro VBA de données une couleur à des étiquettes de données en fonction de leur valeur (les mêmes que dans le tableau de données source, flèche haut (verte), bas (rouge) et droite (noir))

Voici la macro que j'ai écrite :

Sub Macro3()

With ActiveSheet.ChartObjects(1).SeriesCollection(2)

If [selection.value =î ] Then

.Font.ColorIndex = 3

Else

If [selection.value =ì] Then

.Font.ColorIndex = 4

Else

If [selection.value =è] Then

.Font.ColorIndex = 45

End With

End Sub

Bon, le soucis ce que je n'y connais pas grand chose en VBA et que cette macro ne marche pas

Merci de votre aide