Bonjour,
Une piste :
Sub Test()
Dim Graph As Chart
Dim S As SeriesCollection
Set Graph = ActiveSheet.ChartObjects(1).Chart
Set S = Graph.SeriesCollection
'ici, deux séries, S contient la collection des séries, si il n'y en a qu'une, supprimer la seconde ligne
S(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) 'rouge
S(2).Format.Fill.ForeColor.RGB = RGB(0, 255, 0) 'vert
End Sub