Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If Not Intersect(T, [Choix]) Is Nothing Then
i = Application.Match(T, Range("D1:D7"), 0)
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "anime" ' nom graph1
ActiveChart.SeriesCollection(1).XValues = Range("E2:F2") ' axe des X, inutile ici
ActiveChart.SeriesCollection(1).Values = Range("E3:F3") ' Y1 = Anime
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).Name = Range("D" & i) ' nom graph2...