XL 2010 Attribuer des couleurs définies à des graphiques

Private Sub Worksheet_Change(ByVal Target As Range)
Dim co As ChartObject, s As Series
For Each co In ChartObjects
  For Each s In co.Chart.SeriesCollection
    s.Interior.Color = Cells(Application.Match(s.Name, Columns(1), 0), 2).Interior.Color
Next s, co
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim co As ChartObject, s As Series
[D1:E9].Sort [E1], xlDescending, Header:=xlYes 'tri décroissant
[G1:H9].Sort [H1]: [J1:K9].Sort [K1]
For Each co In ChartObjects
  For Each s In co.Chart.SeriesCollection
    s.Interior.Color = Cells(Application.Match(s.Name, Columns(1), 0), 2).Interior.Color
Next s, co
End Sub