Etiquette dynamique vba excel

Sub FormatConditionnelGraphique_etiquete()
    Dim couleur As Boolean
    
    '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) > 0 Then
                'suivant le résultat, change la couleur
                couleur = True
            Else
                couleur = False
            End If
            ActiveChart.SeriesCollection(C).Points(d).DataLabel.Select
            With Selection.Format.TextFrame2.TextRange.Font.Fill
                .Visible = msoTrue
                .Transparency = 0
                .Solid
                If couleur Then
                    .ForeColor.RGB = RGB(0, 176, 80)
                Else
                    .ForeColor.RGB = RGB(255, 0, 0)
                End If
            End With
            'remets dans l'état initial le graphique
            If test = 1 Then ActiveChart.SeriesCollection(C).Points(d).HasDataLabel = False
        Next d
    Next C
End Sub