Sub Copier()
Dim Wb, AWb As Workbook, plage As Range
Application.ScreenUpdating = False
'Modifier le chemin C:\Users\flo\Desktop\ ainsi que le nom des classeurs et des feuilles
Set AWb = ThisWorkbook 'C'est le Classeur de saisie
'Ouvre le Classeur2 ou Classeur de destination
Set Wb = Workbooks.Open("C:\Users\flo\Desktop\test.xlsm")
'Transfert les données saisies du ClasseurA de saisie dans le ClasseurB et enregistre
AWb.Sheets("Feuil1").Range("a2:a" & Range("a65536").End(xlUp).Row).Copy _ Wb.Sheets("Stock").Range("a65536").End(xlUp)(2)
AWb.Save
'Ouvre la boîte de dialogue "Enregistrer sous"
Application.Dialogs(xlDialogSaveAs).Show
Application.ScreenUpdating = True
End Sub