Voilà,
'********** Changer les couleurs des barres **********
Set Plage = ActiveSheet.Range("MesCouleurs")
nb = Range("L1:S1").Cells.Count
ReDim Coul_R(nb) As Long
ReDim Coul_G(nb) As Long
ReDim Coul_B(nb) As Long
ReDim PB(nb) As String
For i = 1 To nb
j = 1
If Left(Cells(1, i + 11), 1) <> " " Then PB(i) = " " & Cells(1, i + 11) Else: PB(i) = Cells(1, i + 11)
Coul_R(i) = (Cells(1, i + 11).Interior.Color) Mod 256
Coul_G(i) = ((Cells(1, i + 11).Interior.Color) Mod 65536) / 256
Coul_B(i) = (Cells(1, i + 11).Interior.Color) / 65536
ActiveSheet.ChartObjects("Graphique 1").Activate
On Error Resume Next
Do While UCase(ActiveChart.SeriesCollection(j).Name) <> UCase(PB(i))
If Err.Number <> 0 Then
On Error GoTo 0
GoTo Suivant
End If
j = j + 1
If j > nb Then Exit Sub
Loop
ActiveChart.SeriesCollection(j).Interior.Color = RGB(Coul_R(i), Coul_G(i), Coul_B(i))
Suivant:
Next i