Microsoft 365 Save as xlsx

Sub Sauvegarde()
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
    .SaveAs ThisWorkbook.Path & "\Mon fichier " & Format(Now, "dd-mm-yyyy-hhmmss"), 51 'format xlsx
    .Close
End With
End Sub

Sub Creation_Recette_Pdf()
'Chemin demandé
'C:\XXXXXXXX\1_Cuisine\3_Recettes\1_Cuisine\3_Recettes\\1_Fiche Recette" & Range("A4").Value & ".pdf" _
' C:\XXXXXXXX\
'1 = Dossier ==> 1_Cuisine\
'2 = Dossier ==> 3_Recettes\
'3 = Dossier ==> 1_Cuisine\
'4 = Dossier ==> 3_Recettes\
'5 = Dossier ==> 1_Fiche Recette\
'6 = Nom du fichier ==> & Range("C2").Value & ".pdf"

'Vérification si un nom de recette existe
If Range("C2") = "" Then MsgBox "Pas de nom de recette !", vbCritical, "Enregistrement impossible !": Exit Sub

VarNomRecette = Range("C2")

Chemin = "C:\Users\" & Environ("UserName")

'1)     Verification si le dossier "1_Cuisine" existe sinon creation
Dossier = "1_Cuisine"
Chemin = Chemin & "\" & Dossier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin

'2)     vérification que le sous dossier "3_Recettes" existe sinon creation
Dossier = "3_Recettes"
Chemin = Chemin & "\" & Dossier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin

'3)     vérification que le sous dossier "1_Cuisine" existe sinon creation
Dossier = "1_Cuisine"
Chemin = Chemin & "\" & Dossier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin

'4)     vérification que le sous dossier "3_Recettes" existe sinon creation
Dossier = "3_Recettes"
Chemin = Chemin & "\" & Dossier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin

'5)     vérification que le sous dossier "1_Fiche Recette" existe sinon creation
Dossier = "1_Fiche Recette"
Chemin = Chemin & "\" & Dossier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin

'6)     Création du fichier pdf
NFichier = Chemin & "\" & VarNomRecette & ".pdf"

'Création du fichier PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NFichier, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "La recette été enregitré." & vbCrLf & vbCrLf & "Ici ==> " & Chemin & vbCrLf & vbCrLf & _
"Sous le nom : " & VarNomRecette & ".pdf", 48, "Enregistrement recette en PDF ..."

End Sub