Bonjour Youness, bonjour le forum,
Essaie comme ça :
Sub vba_new_workbook()
Dim NC As Workbook
Dim N As Variant
N = Application.InputBox("Nom de l'onglet ?", Type:=2)
If N = False Or N = "" Then Exit Sub
Workbooks.Add Template:="C:\Users\YounessH\Desktop\C01.xlsm"
Set NC=Activeworkbook
NC.Worksheets(1).Name = N
End Sub