Sub Macro1()
Dim O As ChartObject, G As Chart
On Error Resume Next
For Each O In ActiveSheet.ChartObjects
Set G = O.Chart
G.SeriesCollection("Bien").Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
G.SeriesCollection("Acceptable").Format.Fill.ForeColor.RGB = RGB(226, 107, 10)
G.SeriesCollection("Mauvais").Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
Next O
End Sub[code]