Sub Enregistrer_sous()
Dim sNom As Variant
Dim Nom As String
Dim Chemin As String
Dim MonDossier As String
Dim extension As String
extention = ".xlsm"
Chemin = "P:\"
MonDossier = "Ingenierie\Departement Ingenierie\3_AI non signés"
Nom = "AI " & Sheets("Forme et Classe").Range("B1") & extension
sNom = ThisWorkbook.Name
sNom = Application.GetSaveAsFilename(sNom, "Fichiers Excel (*.xlsm), *.xlsm")
If sNom = False Then Exit Sub
Application.DisplayAlerts = True
'ActiveWorkbook.SaveAs Nom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.SaveAs sNom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub