Changement de couleur d'un graphique suivant le contenue d'une cellule

Sub ChartUpDate()
'Mise à jour du graphique
Dim G As Object, i&
Set G = ActiveSheet.ChartObjects(1).Chart
With G.SeriesCollection(1)
    For i = 1 To .Points.Count
        .Points(i).Interior.ColorIndex = IIf(Cells(i + 2, 4).Value = 0, 4, 3)
    Next i
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim G As Object, i&
'Plage a adapter pour chaque feuille
If Not Intersect(Target, Range("D3:D54")) Is Nothing Then
    Set G = ActiveSheet.ChartObjects(1).Chart
    With G.SeriesCollection(1)
        For i = 1 To .Points.Count
            .Points(i).Interior.ColorIndex = IIf(Cells(i + 2, 4).Value = 0, 4, 3)
        Next i
    End With
End If
End Sub