XL 2019 Erreur "Déclaration existante dans la portée en cours"

Option Explicit
Sub addinfo(page, lignes)

    Dim dl As Long
    Dim page As String
    
    page = Pages
    
    If Sheets(page).Range("b5") = Empty Then
        dl = 5
    Else
        Sheets(page).ListObject(1).ListRows.Add
        dl = Sheets(page).Range("b4").End(x1down).Row + 1
    End If
    
    With Sheets(page)
        .Range("b" & dl) = .Range("A1") 'num d'opération
        .Range("c" & dl) = Range("c5") 'date
        .Range("d" & dl) = Range("c" & lignes) 'num de compte D
        .Range("e" & dl) = Range("d" & lignes) 'description du compte
        .Range("f" & dl) = Range("g3") 'num du doc
        .Range("g" & dl) = Range("e" & lignes) 'valeur débit
        .Range("h" & dl) = Range("f" & lignes) 'valeur crédit
    End With
    
    If Pages = "GrandJournal" Then
        Sheets("GrandJournal").Range("i" & dl) = Range("c3") & Range("a1")
    End If

End Sub

Option Explicit
Sub addinfo(Journal As String, Form_Ligne)

    Dim Idx As Long
    With Sheets(Journal).ListObjects(1)
        Idx = .ListRows.Add.Index
        Range(.Name & "[Num]").Rows(Idx) = .Parent.Range("A1")
        Range(.Name & "[Date]").Rows(Idx) = Range("C5")
        Range(.Name & "[Compte]").Rows(Idx) = Range("C" & Form_Ligne)
        Range(.Name & "[Description du compte]").Rows(Idx) = Range("D" & Form_Ligne)
        Range(.Name & "[Commentaire]").Rows(Idx) = Range("G3")
        Range(.Name & "[Débit]").Rows(Idx) = Range("E" & Form_Ligne)
        Range(.Name & "[Crédit]").Rows(Idx) = Range("F" & Form_Ligne)
        If .Parent.Name = "GrandJournal" Then
            ' là je ne comprend pas trop l'utilité ???
            Range(.Name & "[Vérification]").Rows(Idx) = Range("c3") & Range("a1")
        End If
    End With

End Sub