Sub Macro1()
Dim FD As FileDialog
Dim F As Workbook
Dim CS As Workbook
Dim CD As Workbook
Dim OS As Worksheet
Dim OD As Worksheet
Set FD = Application.FileDialog(msoFileDialogOpen)
MsgBox "Choisissez le classeur SOURCE"
With FD
.AllowMultiSelect = False
.Show
Set F = Application.Workbooks.Open(.SelectedItems(1))
End With
CA = F.Path & "\"
ActiveWorkbook.SaveAs CA & "Classeur Source", 51
Set CS = ActiveWorkbook
Set OS = CS.Worksheets(1)
MsgBox "Choisissez le classeur DESTINATION"
With FD
.AllowMultiSelect = False
.Show
Set F = Application.Workbooks.Open(.SelectedItems(1))
End With
ActiveWorkbook.SaveAs CA & "Classeur Destination", 51
Set CD = ActiveWorkbook
Set OD = CD.Worksheets(1)
'etc. ton code de copier/coler
End Sub