petite modif de macro

[COLOR="DarkSlateGray"][B]Sub graph_pluietotale_mini_maxi()
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Worksheets(Feuil3.Name)
Set F2 = Worksheets(Feuil6.Name)
Application.ScreenUpdating = False
On Error Resume Next
F2.Shapes("Graphique1").Delete
Charts.Add
With ActiveChart
    .ChartType = xlLine
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = F1.Range("A2", F1.[A2].End(xlDown))
    .SeriesCollection(1).Values = F1.Range("L2", F1.[L2].End(xlDown))
    .SeriesCollection(1).Name = F1.Range("L1")
    .Location Where:=xlLocationAsObject, Name:="graph.mini-maxi"
    End With
 ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.Axes(xlValue).CrossesAt = [COLOR="Red"]Worksheets("config").Range("K3").Value[/COLOR]
    ActiveChart.Axes(xlCategory).TickLabelSpacing =  [COLOR="Red"]Worksheets("config").Range("K5").Value[/COLOR]
    ActiveChart.ChartTitle.Delete
    ActiveSheet.ChartObjects("Graphique1").Activate
    ActiveChart.ChartArea.Select
ActiveChart.Parent.Name = "Graphique1"
With ActiveSheet.Shapes("Graphique1")
    .Left = 0
    .Top = 0
    .Width =  [COLOR="Red"]Worksheets("config").Range("K7").Value[/COLOR]
    .Height =  [COLOR="Red"]Worksheets("config").Range("K9").Value[/COLOR]
End With
[A1].Select
End Sub[/B][/COLOR]