Changement programme pour label

bonjour

voila jai un progamme qui me permet de changer la couleur de fond de mes etuqttes seulemnt la couleur que j'attribie a ces labels sattirbue aussi a mes points comment retirer cela

car la couleur de mes points doit etre différents de la couleur de fond de mes labels

pouvez vous m'aider merci

Private Sub CommandButton5_Click()

ActiveSheet.ChartObjects(1).Activate

On Error Resume Next

ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel

On Error GoTo 0

For igraph = 1 To ActiveSheet.ChartObjects.Count

ActiveSheet.ChartObjects(igraph).Activate

ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel

For i = 1 To ActiveChart.SeriesCollection(1).Points.Count

ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select

Selection.Interior.COLOR = ActiveSheet.Cells(i + 1, 1).Interior.COLOR

Selection.Font.Size = 7

Selection.Text = ActiveSheet.Cells(i + 1, 1)

ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 4

ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColor = ActiveSheet.Cells(i + 1, 1).Interior.COLOR

Next i

Next igraph

End Sub

c bon finalement jai reussi