Sub Color_graph()
Application.ScreenUpdating = False
on error resume next
ActiveSheet.ChartObjects('NomDeTonGraph').Activate
Dim I, couleur, limite As Variant
I = 0
limite = Range('k1') ''en K1 la valeur limite
For Each c In Range('Ta_plage_série_1')
I = I + 1
If c.Value < limit Then
c.Interior.ColorIndex = 4 'colori la cellule
Couleur = 4 'à changer
Else
c.Interior.ColorIndex = 3 'colori la cellule
Couleur = 3 'à changer
End If
ActiveChart.SeriesCollection(1).Points(I).Interior.ColorIndex = Couleur
Next c
''''série 2
For Each c In Range('Ta_plage_série_2')
I = I + 1
If c.Value < limit Then
c.Interior.ColorIndex = 4 'colori la cellule
Couleur = 4 'à changer
Else
c.Interior.ColorIndex = 3 'colori la cellule
Couleur = 3 'à changer
End If
ActiveChart.SeriesCollection(2).Points(I).Interior.ColorIndex = Couleur
Next c
End Sub