Sub copier()
Dim wbks As Workbook, wbkc As Workbook, adr$, sh, rep$
Set wbks = ThisWorkbook
adr = ThisWorkbook.Path
1 rep = InputBox("Veuillez Donner le nom du Fichier à Générer", "Nom du fichier à Générer")
If rep = "" Then GoTo 1
Set wbkc = Workbooks.Add: wbkc.SaveAs rep
For Each sh In Array("MENU", "Global EXPORT", "DETAIL EXPORT", "Global CLIENT", "DETAIL CLIENT", "Global ARTICLE", "DETAIL ARTICLE")
wbks.Sheets(sh).Copy wbkc.Sheets(Sheets.Count)
Next sh
wbkc.Close 1
MsgBox "c'est fait", , "C'est Fini"
End Sub