Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
If ElementID = 3 And Arg2 > 0 Then
x = Application.Index(ActiveChart.SeriesCollection(1).XValues, Arg2)
y = Application.Index(ActiveChart.SeriesCollection(1).Values, Arg2)
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = "Point: " & Arg2 & " x=" & x & " y=" & y _
& " " & Sheets("Y.S Densité").Cells(Arg2 + 1, 1)
End If
End Sub