Macro pour copier et insérer données d'un fichier vers un autre

Bonjour

J'ai enregistré une macro à partir de Excel (microsoft 365) pour insérer dans un fichier_A, la plage de données sélectionnée d'un autre fichier_B.

La tâche consiste à:
- Copier les lignes sélectionnées dans le fichier_B
- Insérer la sélection à partir de la ligne 2 dans le fichier_A
- Insérer après une ligne vide

Voilà ce que j'ai eu comme code automatique dans Excel.

Sub inserer_selection()
'
Windows("Fichier_B.xlsx").Activate
Selection.Copy
Windows("Fichier_A.xlsm").Activate
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select

End Sub

Ma préoccupation:
Le fichier de destination (Fichier_A) sera toujours le même mais le fichier dans lequel se fera la copie des données changera à chaque fois (ce sera le fichier actif )

Ma question: Comment modifier ce code pour que la copie s'applique à un fichier variable dans lequel les données seront sélectionnées(fichier variable autre que le fichier_B).

Merci de votre aide