Sub SaveSheet_to_New_Workbook()
' Export a worksheet to a new workbook
'
Dim wbToCopy As Worksheet
Dim wbNew As Workbook
Dim sNouvFichier As Variant
sNouvFichier = Application.GetSaveAsFilename(, "Classeur Excel(*.xlsx; *.xlsm), *.xlsx; *.xlsm")
If sNouvFichier = False Then Exit Sub '<-On a cliqué sur Annuler donc Faux
Set wbNew = Application.Workbooks.Add
Set wbToCopy = ThisWorkbook.Sheets("Devis") '<- À adapter
wbToCopy.Copy before:=wbNew.Sheets(1) '<- Copie dans le nouveau classeur
wbNew.SaveAs sNouvFichier, xlNormal '<- Renomme et sauvegarder
End Sub