Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
Dim i&, plg As Range
Set plg = Sheets("Feuil1").Range("C2:C9")
With ActiveChart.SeriesCollection(1)
For i = 1 To plg.Count
With .Points(i)
.MarkerBackgroundColorIndex = 7 - 40 * (plg(i).Value = "M")
.MarkerForegroundColorIndex = 7 - 40 * (plg(i).Value = "M")
End With
Next
End With
ActiveChart.Deselect
End Sub