Private Sub Worksheet_Change(ByVal Target As Range)
Dim ch As Chart, i As Integer
Set ch = Me.ChartObjects("Graphique 34").Chart
On Error Resume Next
With ch.SeriesCollection(2)
.ApplyDataLabels Type:=xlDataLabelsShowNone 'masque toutes les étiquettes
For i = 1 To .Points.Count
.Points(i).HasDataLabel = True 'affiche l'étiquette du point
With .Points(i).DataLabel
.Text = Range("plagY3")(i).Text
.Font.ColorIndex = xlAutomatic
'.Font.FontStyle = "Gras"
.Font.Size = 8
.Interior.ColorIndex = 6 'jaune
.Top = .Top - 4 'décale vers le haut
End With
Next
ch.SeriesCollection(3).Interior.ColorIndex = .Points(1).DataLabel.Interior.ColorIndex
End With
End Sub