Dim Sér As Series, PlgX As Range, Zon As Range, Cels 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 Cels In Zon
I = I + 1: Sér.Points(I).Interior.Color = Cels.Interior.Color
Next Cels, Zon