Excel : nuage de points macro qui ne fonctionne pas

Bonjour,

je cherche à nommer des points d'un nuage de points. Je ne veux pas d'etiquettes car j'ai trop de points et le graph devient illisible.
J'ai trouvé sur ce site une macro qui est ce que je recherche mais elle fonctionne mal.
Normalement, lorsque l'on place la souris sur un point, le nom s'affiche ainsi que les coordonnées. Les coordonnées sont correcte mais c'est toujours el meme nom qui s'affiche. Je n'arrive pas à corriger la macro.
Quelqu'un connait il un macro similaire ?
Voici la macro en question :

Sub

Set valeursx = Application.InputBox(prompt:="Sélectionnez les valeurs des X", Type:=8)
Set valeursy = Application.InputBox(prompt:="Selectionnez les valeurs des Y", Type:=8)
Set nomz = Application.InputBox(prompt:="Selectionnez les noms de vos points", Type:=8)

nomz.Select
R = Selection.Rows.Count

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection(1).XValues = valeursx
ActiveChart.SeriesCollection(1).Values = valeursy
With ActiveChart
.Legend.Delete
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, ShowSeriesName:=False, ShowCategoryName:=True, ShowValue:=False, _
ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(1).DataLabels.Select

For i = 1 To R
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Text = "=Feuil1!R" & i & "C1"
Next i


End Sub

Je n'arrive pas à la corriger. Est ce que quelqu'un aurait la solution ?


Aym