Sub couleurs()
Application.ScreenUpdating = False
Dim i As Integer, j As Integer, k As Integer
j = 2
Feuil1.Activate
For i = 1 To 10
ActiveSheet.ChartObjects("Graphique " & i).Activate
With ActiveChart.SeriesCollection(1)
For k = 1 To .Points.Count
If ActiveSheet.Cells((k + 6), j).Interior.ColorIndex <> xlNone Then
.Points(k).Interior.ColorIndex = ActiveSheet.Cells((k + 6), j).Interior.ColorIndex
Else
.Points(k).Interior.ColorIndex = 10
End If
Next k
End With
j = j + 10
Next i
Application.ScreenUpdating = True
End Sub