Sub ModifCouleur2()
Dim xVals As String, i As Integer
ActiveSheet.ChartObjects("Graphique 1").Activate
'Store the formula for the first series in "xVals". >> Permet de trouver la plage des cellules (colonne B)
xVals = ActiveChart.SeriesCollection(1).Formula
'Extract the range for the data from xVals.
xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
Do While Left(xVals, 1) = ","
xVals = Mid(xVals, 2)
Loop
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = _
Range(xVals).Cells(i, 2).Interior.ColorIndex 'Range(xVals).cells(i,2) correspond à la cellule dans la colonne C
Next i
End Sub