Sheets("Moyenne par jour").Select
'Compte le nombre de séries
For c = 1 To ActiveChart.SeriesCollection.Count
'compte le nombre de points
For d = 1 To ActiveChart.SeriesCollection(c).Points.Count
'teste la présente des étiquettes sur le graphs
If ActiveChart.SeriesCollection(c).Points(d).HasDataLabel = False Then test = 1
'affiche les étiquettes
ActiveChart.SeriesCollection(c).Points(d).HasDataLabel = True
'récupère les informations des étiquettes
rep = ActiveChart.SeriesCollection(c).Points(d).DataLabel.Text
'convertit l'étiquette en nombre et fais le test
If CDbl(rep) > 3 Then
'suivant le résultat, change la couleur
ActiveChart.SeriesCollection(c).Points(d).Interior.ColorIndex = 4
Else
ActiveChart.SeriesCollection(c).Points(d).Interior.ColorIndex = 3
End If
'remets dans l'état initial le graphique
If test = 1 Then ActiveChart.SeriesCollection(c).Points(d).HasDataLabel = False
Next d
Next c