Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElementID As Long, Arg1 As Long, Arg2 As Long
On Error Resume Next
ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2 'élément graphique sous le pointeur de la souris
If ElementID <> 3 Then Unload UserForm1: Exit Sub 'si l'élément n'est pas la série
With UserForm1
.Show 0
.Label1 = Sheets("Feuil1").Range("B" & Arg2 + 1)
End With
End Sub