Microsoft 365 Copier le contenu d'une feuille dans une autre par une macro

Bonjour,

je rencontre un problème avec ma macro.
Je souhaite ouvrir un fichier de donnée, en copier le contenu, coller l'ensemble dans un onglet nommé "BASE RELANCE", et enfin fermer le fichier de données.

La macro ci dessous fonctionne jusqu'à l'ouverture de mon fichier de données mais ensuite, rien ne se passe.
Etant novice en codage, je sollicite vos lumières pour me sortir du noir !!

Merci à toutes et tous !
Alexandre

Macro :
Sub Macro2()
'
' Macro2 Macro
' Importe la BASE RELANCE
'
' Touche de raccourci du clavier: Ctrl+Shift+B
'



Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, classeur As String
Dim DernLigne As Long, DernColonne As Integer

'Ouvre le fichier voulu
Application.ScreenUpdating = False
Set wkA = ThisWorkbook 'ton dossier ouvert ou se trouve les données
chemin = wkA.Sheets("Mode d'Emploi").Cells(11, 4) ' la partie fixe
classeur = wkA.Sheets("Mode d'Emploi").Cells(11, 5) ' pour récupérer le nom du classeur
Workbooks.Open chemin
Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB
'Copie le contenu du fichier ouvert
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Range(Cells(1, 1), Cells(DernLigne, DernColonne)).Select
Selection.Copy
'Colle le contenu du fichier ouvert dans l'onglet BASE RELANCE de mon fichier
wkA.Activate
Sheets("BASE RELANCE").Range("A2").PasteSpecial Paste:=xlPasteValues
wkB.Close True 'ferme le classeur ouvert par la macro
Application.ScreenUpdating = True



End Sub