Problème effacement séries d'un graphique

Option Explicit

' --------------- Mise à jour dessin (séries du graphe)
Sub BoutonLancer_Click()
Dim Ligne As Long
Dim Serie As Series
Dim CoucheCour As Single
Dim DebAdresse As String, AbscH As String, OrdoH As String
Dim Nom As String
ActiveSheet.ChartObjects("Dessin1").Activate
With ActiveChart
    .PlotArea.Select
    ' ----- Effacement des séries des couches complètes
    For Each Serie In .SeriesCollection                                                                ' Début à 4 car 3 premières séries conservées
       ' On Error Resume Next
       Nom = Serie.Name
       If Left(Nom, 5) = "Série" Then Serie.Delete                                                                          ' Effacement des séries
       ' On Error GoTo 0
    Next Serie
    For Ligne = 1 To 3
        ' Création d'une série par couche
        AbscH = Range("DebSortie").Offset(Ligne - 1, 0).Resize(1, 2).Address
        OrdoH = Range("DebSortie").Offset(Ligne - 1, 2).Resize(1, 2).Address
        DebAdresse = "=" & ActiveSheet.Name & "!"
        .SeriesCollection.NewSeries
        With .SeriesCollection(3 + Ligne)
            .XValues = DebAdresse & AbscH
            .Values = DebAdresse & OrdoH
            .Select
             With Selection.Format.Line
                 .ForeColor.RGB = RGB(255, 0, 0)
                 .Weight = 2.25
             End With
        End With
    Next Ligne
End With
End Sub