Aide VBA Ouvertures successives de fichier + CopyPaste

Bonjour,

J'ai besoin d'un peu d'aide je suis totalement débutant VBA.

J'ai commencé à écrire ce code ci-après, mais il s'arrête à la deuxième occurrence de :

Set Fichier = Application.Workbooks.Open(Chemin) 'Ouvrir le fichier

Le but de ce fichier est d'ouvrir plusieurs fichier extraction puis copier et coller les données dans la feuille associée.

Merci d'avance.

Sub Suite_De_Fichiers() 'Macro pour ouvrir d'autres fichiers Excel

'Début de programme

'Variables

Dim Fichier As Workbook

Dim Chemin

Dim Feuille

'Programme

Feuille = Range("B10").Value 'Selection du fichier et feuille à copier

Chemin = Range("A14").Value 'Choisir le fichier

Set Fichier = Application.Workbooks.Open(Chemin) 'Ouvrir le fichier

Sheets(Feuille).Select

Range("A1:AA110").Select

Selection.Copy

Windows("Test macroV2.xlsm").Activate

Sheets(Feuille).Select

Range("A1").Select

ActiveSheet.Paste

'Fichier = Empty

'Chemin = Empty

'Feuille = Empty

'Fichier = Empty

Feuille = Range("B11").Value 'Selection du fichier et feuille à copier

Chemin = Range("A15").Value 'Choisir le fichier

Set Fichier = Application.Workbooks.Open(Chemin) 'Ouvrir le fichier

Sheets(Feuille).Select

Range("A1:AA110").Select

Selection.Copy

Windows("Test macroV2.xlsm").Activate

Sheets(Feuille).Select

Range("A1").Select

ActiveSheet.Paste

'Aller à la fin de la feuille

'Application.Goto Reference:="R1000000C1"

'Selection.End(x1Up).Select

'ActiveCell.Offset(1, 0).Range("A1").Select 'Descendre d'une cell avec offset

End Sub 'Fin de programme

Solution trouvée, il fallait revenir sur la feuille de sélection de la macro