Graphique: variation de couleur en fonction d'un objectif

Sub ColorChartPoints()
    Dim oChart As Chart
    Dim oSerieTaux As Series
    Dim oSerieObjectif As Series
    Dim oPoint As Point
    Set oChart = Sheets("Feuil1").ChartObjects(1).Chart
    Set oSerieTaux = oChart.SeriesCollection("Taux de réalisation")
    Set oSerieObjectif = oChart.SeriesCollection("Objectif de réalisation")
    Dim i As Integer
    For i = 1 To UBound(oSerieTaux.Values)
        Set oPoint = oSerieTaux.Points(i)
        If oSerieTaux.Values(i) < oSerieObjectif.Values(i) Then
            oPoint.Interior.Color = vbRed
        Else
            oPoint.Interior.Color = vbGreen
        End If
    Next
End Sub