Bonjour,
Une piste, adapter le chemin et nom du classeur cible, le nom des feuilles de chaque classeur (ici, Feuil1) et le code doit être mis dans un module du classeur contenant les données à copier :
Sub Test()
Dim ClsSource As Workbook
Dim ClsCible As Workbook
Dim Plage As Range
'classeur où se trouvent les données à copier
Set ClsSource = ThisWorkbook
'classeur où von être collées les données, adapter le chemin et nom du classeur !
Set ClsCible = Workbooks.Open("D:\Mon dossier\Mon classeur.xlsm")
'défini la plage en colonne A à partir de A1 sur la feuille nommée "Feuil1", adapter le nom de la feuille !
With ClsSource.Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
'inscrit les données en colonne A à partir de A1 dans la feuille nommée "Feuil1", adapter là aussi le nom de la feuille !
With ClsCible.Worksheets("Feuil1"): .Range(.Cells(1, 1), .Cells(Plage.Rows.Count, 1)).Value = Plage.Value: End With
End Sub