Option Explicit
Sub test()
With Workbooks("Classeur2.xls")
.Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs .Sheets("Feuil2").Range("A1")
End With
End Sub
Sub GénérerFichier
ThisWorkbook.ActiveSheet.Copy
Application.DisplayAlerts = False
Dim str As String
Range("A1").Select
Dim chemin As String
chemin = CreateObject("WScript.Shell").SpecialFolders("Desktop")
str = ActiveCell.Text & ".xls"
ActiveWorkbook.SaveAs Filename:= _
str, FileFormat:=xlXLS, Local:=True, CreateBackup:=False
ActiveWindow.Close
End Sub