Sub test()
Dim wb As Workbook, f As String, monfichier As String
Set wb = ThisWorkbook
f = ThisWorkbook.FullName
monfichier = InputBox("Nom du dossier:", "Nouveau dossier créé", "SimulMSA-DefaultName")
With wb
.SaveAs Filename:=monfichier & ".xls"
Workbooks.Open f
.Close
End With
End Sub