Bonjour,
Habituellement je déclare deux objets de type Workbook
Dim wkSource, wkA_Ouvrir As Workbook
Set wkSource = ThisWorkbook 'Ton fichier d'origine contenant la macro
Set wkA_Ouvrir = Workbooks.Open(CHEMIN_DU_FICHIER_A_OUVRIR, False, True)
Ensuite pas besoin de basculer entre les fichiers. Il suffit de bien appeler les cellules :
wkSource.Sheets("Feuil1").Range("A1") = wkA_Ouvrir.Sheets("La bonne Feuille").Range("La bonne cellule")