erreur au moment de créer un graphique

Sub recap()

' Supprimer anciens graphs '
        For Each Legraphe In ActiveSheet.ChartObjects
            Legraphe.Delete
        Next

' Boucle afin de faire TOUT les graph
i = 1
li = 1
col = 1
For k = 1 To 2
    For l = 1 To 4
        For m = 1 To 5
    ' Ajouter nouveau graph '
        ActiveSheet.Shapes.AddChart.Select         
    ' Supprimer séries déjà affichées '
            Do Until ActiveChart.SeriesCollection.Count = 0
                ActiveChart.SeriesCollection(1).Delete
            Loop
           
    ' Choix type de courbe '
            ActiveChart.ChartType = xlXYScatterLines
                
    ' Choix et ajout des séries '
            ActiveChart.SeriesCollection.NewSeries
            ActiveChart.HasTitle = True
            ActiveChart.ChartTitle.Characters.Text = m & " en fonction de la " & l & " du " & k
                abscisse k, l
                ordonnée m
                With Worksheets("Récapitulatif")
.ChartObjects(i).Top = .Rows(li).Top
.ChartObjects(i).Left = .Columns(col).Left
.ChartObjects(i).Height = 165.75
.ChartObjects(i).Width = 300
                End With
i = i + 1
li = li + 13
        Next
    Next
li = 1
col = 8
Next

End Sub