Option Explicit
Sub test()
Dim t() As Variant, s As Series, i As Integer, j As Byte
t = Array(0, 3, 11, 40)
Set s = Feuil2.ChartObjects(1).Chart.SeriesCollection(1)
For i = 1 To s.Points.Count
If InStr(s.XValues(i), vbLf) > 0 Then j = j + 1
With s.Points(i)
.Border.ColorIndex = t(j)
.MarkerBackgroundColorIndex = t(j)
.MarkerForegroundColorIndex = t(j)
End With
Next i
End Sub