aide pour données dans un graphique

Private Sub CommandButton1_Click()
Cel = ActiveCell.Address
If (Range("E2") * Range("E3") * Range("F2") * Range("F3")) > 0 Then
  PlagA = "Feuil1!A" & Range("E2") & ":A" & Range("E3")
  PlagB = "Feuil1!B" & Range("F2") & ":B" & Range("F3")
  Plage = "A" & Application.Min(Range("E2:F2").Value) & ":B" & Application.Max(Range("E3:F3").Value)
  Me.ChartObjects("Graphique 1").Activate
  ActiveChart.PlotArea.Select
  ActiveChart.SetSourceData Source:=Range(Plage)
  ActiveChart.SeriesCollection.NewSeries
  ActiveChart.SeriesCollection(1).Name = Range("E2")
  ActiveChart.SeriesCollection(1).Values = PlagA
  ActiveChart.SeriesCollection.NewSeries
  ActiveChart.SeriesCollection(2).Name = Range("E3")
  ActiveChart.SeriesCollection(2).Values = PlagB
End If
Range(Cel).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("E2:E3"), Target) Is Nothing Then Cells(Target.Row, Target.Column + 1) = Target.Value
Application.EnableEvents = True
End Sub