Coller données d'un fichier vers un autre avec variable

Bonjour,
je dois copier des données, une colonne toujours la même, la D de la feuille Tableau, le fichier change tous les jours, en Paramètre, cellule D17, apparaît la date du jour de l'extraction des données. Ces données vont alimenter la feuil2 du fichier Essai Analyse Courses, avec pour variable la date. J'essaie de coller cette colonne de données, sur mon fichier de destination, à la suite de la première en (A:A), en B3, et de coller la date en B1.
Ci dessous la macro que j'ai réalisé. E PJ, les fichiers de test.
Merci pour votre aide.
Très bonne soirée.




Sub Extraire_donnees()
'
' Extraction Macro

Dim chemin As String, objShell As Object, objfolder As Object
Set objShell = CreateObject("Shell.Application")
rep = "F:Excel_test_HLP.Path"
Application.Dialogs(xlDialogOpen).Show
Sheets("Tableau").Activate
Columns("D").Select
Selection.Copy
Windows("Essai Analyse courses.xlsm").Activate
Sheets("Feuil2").Select
Colonne = ActiveWorkbook.Worksheets("Feuil2").Cells(2, Columns.Count).End(xlToRight).Column + 1
ThisWorkbook.Worksheets("Feuil2").Range("B2:B700").Copy Destination:=ActiveWorkbook.Worksheets("Feuil2").Range("A" & Colonne)
Application.CutCopyMode = False
ActiveSheet.Paste
Windows("NouvelleAnalyse2_18042016_093625.xlsm").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
ActiveWindow.Close
Sheets("Feuil1").Select



End Sub