Sub CouleurChoixParTable()
Dim ObjPoint As Point
Dim i As Integer
Dim TabPoints As Variant
Dim Cell As Range
ActiveSheet.ChartObjects("Graphique 3").Activate
With ActiveChart
TabPoints = ActiveChart.SeriesCollection(1).XValues
i = 0
For Each ObjPoint In ActiveChart.SeriesCollection(1).Points
i = i + 1
For Each Cell In Range("TableauChoix")
If InStr(TabPoints(i), Cell.Value) <> 0 Then
ObjPoint.Format.Fill.ForeColor.RGB = Cell.Interior.Color
End If
Next Cell
Next ObjPoint
End With
End Sub