Sub Macro2()
Dim Sér As Series, PlgX As Range, Zon As Range, Cel As Range, I As Long
Set Sér = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
Set PlgX = Application.Range(Split(Sér.Formula, ",")(1))
For Each Zon In PlgX.SpecialCells(xlCellTypeVisible)
For Each Cel In Zon
I = I + 1: Sér.Points(I).Interior.Color = Cel.Interior.Color
Next Cel, Zon
End Sub