Sub Macro2()
'ActiveSheet.activeChartObjects("Graphique 23").Activate
'ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(4).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(153, 255, 153)
.Transparency = 0
.Solid
End With
End Sub