Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
If (ElementID = 3 And (Arg1 = 1 Or Arg1 = 2 Or Arg1 = 3 Or Arg1 = 6) And Arg2 <> -1) Or (ElementID = 0 And Arg1 = 4 And Arg2 <> 0) _
Or ElementID = 19 Or ElementID = 4 Then
ActiveChart.Select
Sheets("" & Sheets("Donnees").Cells(Arg2 + 1, 1) & "").Select
End If
End Sub