Sub Couleur()
Dim i As Integer
Dim LeCas As Byte
Dim theChart As Chart
'on 'éteint' l'affichage pour éviter les clignotement
Application.ScreenUpdating = False
' initialisation de la variable theChart par le set sur un objet graphique nommé 'Graphique 1'
'Attention cela ne marchera que sur ce graphique....
Set theChart = ActiveSheet.ChartObjects('Graphique 1').Chart
i = 2
'On parcoure la colonne 1
While ActiveSheet.Cells(i, 1) <> ''
LeCas = 3 'rouge
' on test sur la ligne en cours, colonne 2 c'estdc des pourcentages
If ActiveSheet.Cells(i, 2) < 0.75 Then LeCas = 46 'orange
If ActiveSheet.Cells(i, 2) < 0.5 Then LeCas = 6 'jaune
If ActiveSheet.Cells(i, 2) < 0.25 Then LeCas = 4 'vert
theChart.SeriesCollection(1).Points(i - 1).Interior.ColorIndex = LeCas
i = i + 1 'on change de ligne
Wend
' on détruit la variable objet
Set theChart = Nothing
'on remet à jour l'affichage
Application.ScreenUpdating = True
End Sub