Graphe Auto avec une macro

Bonjour,

Hier j'ai fais une macro qui me permet de créer des graphes automatiques. Par exemple si j'ajoute un client dans mon feuil, à l'aide de ma macro j'affiche les graphes de nouveau client. J'ai un problème aujourd'hui"hui la macro ne marche pas, je sais pas pourquoi !!!

Voici le code :
Sub data1vsdatas()

' Roni Avesta

Columns("B:B").Select
ActiveWindow.SmallScroll ToRight:=25
Range("B:B").Select
Range("GY1").Activate
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("GRAPHAUTO").Range( _
"B1:B6467"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="DATA vs DATAS 234"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "DATA1 vs DATAs 2;3;4"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.SeriesCollection(4).Select
ActiveChart.SeriesCollection(4).AxisGroup = 2
ActiveChart.SeriesCollection(3).Select
ActiveChart.SeriesCollection(3).AxisGroup = 2
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).AxisGroup = 2
ActiveChart.Legend.Select
Selection.Left = 449
Selection.Top = 1
Selection.Width = 269
Selection.Height = 38
ActiveChart.ChartTitle.Select
Selection.Left = 42
Selection.Top = 2
ActiveChart.ChartArea.Select
ActiveChart.Legend.Select
Selection.Left = 303
Selection.Width = 409
ActiveChart.PlotArea.Select
Selection.Width = 707
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.Legend.Select
ActiveChart.Legend.LegendEntries(3).LegendKey.Select
With Selection.Border
.ColorIndex = 3
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 3
.Shadow = False
End With
End Sub

Quand j'exécute il y a une erreur je la corrige et toujours pas.

Que dois-je faire ???