Modifier la couleur des bullets points dans un graphe nuage ?

Bonjour Forum,
Je fais un graphique nuage à partir de : X (volumes de ventes) et Y (marge).
Dans une troisième colonne une info dit si mon client est en France ou hors France.
Je voudrais que le bullet point des client "France" soit rouge et celui des clients "Hors France".
J'ai essayé le code suivant (adapté du coloriage des graphiques "Bulle") mais rien ne se passe....

Sub Colorie_Points_NuageOM()
Dim nbval, a, col As Integer
'Sélectionne le Graphique "Nuage_OM"
Sheets("Sources_Graph").ChartObjects(1).Activate
'Définis le nombre de points dans la collection
nbval = ActiveChart.SeriesCollection(1).Points.Count

' Sélectionne chacun des points et lui attribue
' la couleur de la cellule lui correspondant.
For a = 1 To nbval
col = Sheets("Sources_Graph").Range("f" & a + 2).Interior.ColorIndex
With ActiveChart.SeriesCollection(1).Points(a).Interior.ColorIndex = col
End With
Next
End Sub


Est-ce que c'est "Point(a)." qu'il faut utiliser ou un autre argument ?

Pendant que j'y suis : est-il possible de modifier le bullet point lui même ? (avoir des carrés et des ronds au lieu du bullet par défaut)

Merci d'avance forum adoré !

CHS