Sub CréerFichier()
Dim chemin$, nomfichier$, formatfichier As Byte
'---chemin d'accès du dossier, à adapter---
chemin = ThisWorkbook.Path
If chemin <> "" Then chemin = chemin & "\"
'---nom à adapter---
nomfichier = "MonFichier"
'---choisir l'un de ces 3 formats---
formatfichier = 51 'extension .xlsx
'formatfichier = 52 'extension .xlsm (acceptant les macros)
'formatfichier = 56 'extension .xls (97-2003)
'---nouveau document---
Workbooks.Add
'---enregistre sous---
ActiveWorkbook.SaveAs chemin & nomfichier, formatfichier
End Sub