Sub couleur_graph()
With Me.ChartObjects("Graphique 1").[COLOR="Red"]Chart.[/COLOR]SeriesCollection(2).Points(1).Fill
.OneColorGradient Style:=msoGradientVertical, Variant:=4, Degree:=0.231372549019608
.ForeColor.SchemeColor = couleur '46 orange 4 vert 3 rouge
End With
End Sub