Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Valeur = Range("Feuil1!C7")
Coul = RGB(0, 176, 80)
If Valeur < 500 Then Coul = RGB(255, 192, 0)
If Valeur < 200 Then Coul = RGB(255, 0, 0)
Sheets("Feuil1").ChartObjects("Graphique 2").Chart.FullSeriesCollection(2).DataLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = Coul
End Sub