Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte
ActiveSheet.ChartObjects("Graphique 1").Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = _
ActiveSheet.Cells(i + 1, 3).Interior.ColorIndex
Next i
End Sub