Créer/imprimer un état

Bonjour à tous,

Je n'arrive pas à trouver une fonction pour créer un état de mon fichier.
J'ai un fichier 1.xls qui contient des données. Lorsque je lance une macro je voudrais ouvrir le fichier 2.xls puis transférer les données du fichier 1.xls (ex: A1 et C1) dans le fichier 2.xls (B10 et C10).
Ensuite je lance l'impression de mon fichier 2.xls
Et enfin je ferme mon fichier 2.xls sans sauvegarder.

Je souhaite utiliser deux fichiers pour pouvoir faire évoluer mon fichier "template"si nécessaire (2.xls)

Je vous joins mes fichiers exemple.
L'ouverture et l'impression fonctionne, seul le transfert de données me pose problème.
Pouvez vous m'aider SVP ?

Merci

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
'ouverture du fichier template
Workbooks.Open Filename:=ThisWorbooks.Patch & "2.xls"
'transfert sur le fichier template
Workbooks("2.xls").Worksheets("Feuil1").Range("B10").Value = Sheets("donnees").Range("A1")
Workbooks("2.xls").Worksheets("Feuil1").Range("C10").Value = Sheets("donnees").Range("C1")
'impression du fichier template
Workbooks("2.xls").Worksheets("Feuil1").Range("A1:E6").PrintOut Copies:=1, Collate:=True
'fermeture du fichier template sans sauvegarde
Workbooks("2.xls").Close False
End Sub

Cliquez pour agrandir...