Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim co As ChartObject, s As Series, p As Points
Dim col, i As Integer
col = 4
For Each co In ChartObjects
'For Each s In co.Chart.SeriesCollection
For i = 1 To co.Chart.SeriesCollection(1).Points.Count
With co.Chart.SeriesCollection(1).Points(i)
.Interior.Color = Worksheets("Feuil2").Cells(Application.Match(Cells(i + 1, col).Value, Worksheets("Feuil2").Columns(1), 0), 2).Interior.Color
End With
Next i
col = col + 3
'Next s
Next co
End Sub