Transfert données de cellules excel d'un fichier sur un autre

Set NomFichierSortie = Workbooks.Open("C:\Users\jean-pierre\Desktop\Nouveau crop 2015 double\Historique\listing.xls")

Sub Macro1()
Dim CS As Workbook 'définit la variable CS (Classeur Source)
Dim OS As Worksheet 'définit la variable OS (Onglet Source)
Dim CD As Workbook 'définit la variable CD (Classeur Destination)
Dim OD As Worksheet 'définit la variable OD (Onglet Destination)
Dim DEST As Range 'définit la variable DEST (cellule de DESTination)

Set CS = ThisWorkbook 'définit le classeur source CS
Set OS = CS.Sheets("Feuil1") 'définit l'onglet source OS
'définit le classeur destination CD
Set CD = Workbooks.Open("C:\Users\jean-pierre\Desktop\Nouveau crop 2015 double\Historique\listing.xls")
Set OD = CD.Sheets("Feuil1") 'définit l'onglet destination OD
'définit la cellule de destination DEST (A1 si A1 est vide, sinon la première cellule vide de la colonne 1 (=A) de l'onglet OD)
Set Range = IIf(OD.Range("A1") = "", OD.Range("A1"), OD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
DEST.Value = OS.Range("D5").Value 'récupère dans DEST la valeur de D5 de l'onglet source OS
DEST.Offset(0, 1).Value = OS.Range("F5").Value 'récupère dans DEST décalée d'une colonne à droite la valeur de F5 de l'onglet source OS
CS.Close False 'ferme le classeur source sans enregistrer les modifications
CD.Save 'enregistre les modification du classeur destination CD
'si tu veux le fermer aussi, remplace la ligne au-dessus par :
'CD.Close True 'ferme le classeur destination en enregistrant les modifications
End Sub