Sub copie_base()
Dim nf
Windows("Macros.xls").Visible = True
ActiveWindow.ActivateNext
nf = ActiveWorkbook.Name
ActiveWindow.ActivateNext
ActiveWorkbook.Sheets("base").Copy Before:=Workbooks(nf).Sheets(1)
Windows("Macros.xls").Visible = False
End Sub