Sub labelgraph()
Dim NombrePoints As Integer
Dim i As Integer
Dim eti As Integer
'les noms d'étiquettes doivent être en a1 et suivantes
Sheets("Graph1").Select
NombrePoints = ActiveChart.SeriesCollection(1).Points.Count
For i = 1 To NombrePoints
With ActiveChart.SeriesCollection(1).Points(i)
.HasDataLabel = True
.DataLabel.Characters.Text = Sheets("feuil1").Cells(i + 1, 1)
End With
Next
End Sub