VBA - Changer les couleurs de series sur graphs

Sub macroCOULBarre()
Dim i&, j&, k&, Texte$, xrg As Range, sh As Worksheet


  Set sh = Sheets("Codescouleurindex")
  ActiveSheet.ChartObjects("Chart 3").Activate
  With ActiveChart
    For j = 1 To .SeriesCollection.Count
      With .SeriesCollection(j)
        Texte = .Name
        For k = 2 To 9999
          If Len(sh.Cells(k, "a")) = 0 Then Exit For
          If LCase(Texte) Like "*" & LCase(sh.Cells(k, "a")) & "*" Then
            .Format.Fill.ForeColor.RGB = sh.Cells(k, "a").Interior.Color
            Exit For
          End If
        Next k
      End With
    Next j
  End With
  Range("j25").Activate
End Sub


Sub macroCOULSecteur()
Dim i&, j&, k&, Texte$, xrg As Range, sh As Worksheet
  
  Set sh = Sheets("Codescouleurindex")
  ActiveSheet.ChartObjects("Chart 1").Activate
  With ActiveChart.SeriesCollection(1)
    .ApplyDataLabels
    .DataLabels.ShowSeriesName = True
    .DataLabels.ShowCategoryName = True
    For i = 1 To .Points.Count
      Texte = .Points(i).DataLabel.Text
      For k = 2 To 9999
        If Len(sh.Cells(k, "a")) = 0 Then Exit For
        If LCase(Texte) Like "*" & LCase(sh.Cells(k, "a")) & "*" Then
          .Points(i).Format.Fill.ForeColor.RGB = sh.Cells(k, "a").Interior.Color
          Exit For
        End If
      Next k
    Next i
    .DataLabels.ShowSeriesName = False
    .DataLabels.ShowCategoryName = False
    .DataLabels.ShowValue = False
  End With
  Range("a16").Activate
End Sub