Sub Macro1()
Const CH As String = " C:\Users\JP_M\Documents\" 'déclare et définit la constante CH (CHemin)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim T As Variant 'déclare la variable T (Texte)
Set O = ThisWorkbook.Sheets("accueil") 'définit l'onglet O
deb: 'étiquette
'définit la variable T
T = Application.InputBox("Veuillez renseigner le nom !", "NOM", Type:=2)
If T = False Then Exit Sub 'si bouton [Annuler] sort de la procédure
If T = "" Then 'consition : si T est vide
MsgBox "vous devez renseigner le nom !" 'message
GoTo deb 'va à l'étiquette "deb"
End If 'fin de la condition
O.Range("D1").Value = T 'renvoie T dans la cellule D1 de l'onglet O
ThisWorkbook.SaveAs (CH & "VOR " & T & ".xlsm") 'enregistre le classeur sous
End Sub