Private Sub Worksheet_Activate()
ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.SeriesCollection(1).Points(1).DataLabel.Select
For i = 3 To Worksheets("AMDEC").Range("S3").End(xlDown).Row
ActiveChart.SeriesCollection(1).Points(i - 2).DataLabel.Text = Worksheets("AMDEC").Cells(i, 19)
Next
End Sub