Graphique avec indicateur visuel si > limite

Sub Mise_en_Forme_selon_un_Seuil()
'Le seuil est fixé à 4000
Dim i As Long
Sheets("Graph1").Activate
With ActiveChart.SeriesCollection(1)
  For i = 1 To .Points.Count
    If ActiveChart.SeriesCollection(1).Points(i).HasDataLabel = False Then test = 1
    ActiveChart.SeriesCollection(1).Points(i).HasDataLabel = True
    rep = ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text
    If CDbl(rep) > 4000 Then
      'suivant le résultat, change la couleur
      ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 3
    Else
      ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 43
    End If
    'remets dans l'état initial le graphique
    If test = 1 Then ActiveChart.SeriesCollection(1).Points(i).HasDataLabel = False
  Next
End With
End Sub