comment utiliser les couleurs d'un graphe?

Option Explicit
[COLOR=red]Dim couleurs() As Long[/COLOR]
 
Private Sub Chart_Calculate()
    Dim oSeries As Object
    Dim oPlage As Range
    Dim i As Integer
    [COLOR=red]Erase couleurs[/COLOR]
    [COLOR=red]ReDim couleurs([COLOR=black]0 To Charts(1).SeriesCollection.Count - 1[/COLOR])
[/COLOR]    For Each oSeries In Charts(1).SeriesCollection
        couleurs(i) = oSeries.Interior.Color
        i = i + 1
    Next
End Sub

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend!  -  www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Cible [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] S [COLOR=NAVY]As[/COLOR] Series
    [COLOR=NAVY]For Each[/COLOR] S [COLOR=NAVY]In[/COLOR] Charts("Graph1").SeriesCollection
        [COLOR=NAVY]Set[/COLOR] Cible = Sheets("DONNEE").Columns(3).Find(S.Name, LookIn:=xlValues)
        S.Interior.Color = Cible.Interior.Color
    [COLOR=NAVY]Next[/COLOR] S
[COLOR=NAVY]End Sub[/COLOR]