XL 2019 BDD d'un fichier A vers fichier B

Sub CommandButton5_Click()
    With Workbooks.Open(Filename:=ThisWorkbook.Path & "\LISTE_PLAN_Z.xlsx")
        ligne =.Worksheets("Feuil1").Range("F" & Rows.Count).End(xlUp).Row + 1
        With .Worksheets("Feuil1")
            .Range("A" & ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("I21").Value
            .Range("E" & ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("H21").Value
        End With
    End With
End Sub

Sub CommandButton5V2_Click()

    With OuvrirClasseur("Liste_Plan_Z.xlsx", ThisWorkbook.Path)
        ligne = .Worksheets("Feuil1").Range("F" & Rows.Count).End(xlUp).Row + 1
        With .Worksheets("Feuil1")
            .Range("A" & ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("I21").Value
            .Range("E" & ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("H21").Value
        End With
    End With

End Sub



'
' Fonction renvoyant un classeur dont le nom est passé en paramètre
' S'il n'est pas ouvert, la fonction tentera de l'ouvrir à partir
' du répertoire donné
'
Function OuvrirClasseur(ByVal NomClasseur As String, Optional ByVal Répertoire As String) As Workbook
    On Error GoTo FIN
    '
    ' Prendre le répertoire de ce classeur par défaut
    If Répertoire = "" Then Répertoire = ThisWorkbook.Path
    '
    ' Rajouter éventuellement l'anti-slash de fin
    If Right(Répertoire, 1) <> Application.PathSeparator Then Répertoire = Répertoire & Application.PathSeparator
    '
    ' Obtention du classeur
    Set OuvrirClasseur = Workbooks(NomClasseur)
    If OuvrirClasseur Is Nothing Then Set OuvrirClasseur = Workbooks.Open(Répertoire & NomClasseur)
FIN:
   On Error GoTo 0
End Function