Sub NouveauClasseur()
Dim Wbk As Workbook, Wst As Worksheet, Rng As Range
Set Wbk = Workbooks.Add
Set Wst = Wbk.Sheets(1)
MsgBox "La 1ère feuille du nouveau classeur s'appelle pour l'instant """ & Wst.Name & """.", vbInformation, "Essais"
Wbk.SaveAs ThisWorkbook.Path & "\Essai.xls"
Wbk.Close
End Sub