XL 2019 macro pour un bouton avec lien "enregistrer sous"

Sub reg()
    Dim fname As Variant
    
    'si on veut juste un dossier en particulier
    'directiondebase = "C:\Users\patricktoulon\Desktop\mondossier"
    
    'si on veut un dossier en particulier et un nom par defaut
    ' exemple
    nom = ThisWorkbook.Name & "-copie_" & Format(Date, "dd-mm-yyyy") & ".xlsm"
    directiondebase = "C:\Users\patricktoulon\Desktop\mondossier\" & nom
    
    'ouverture du dialog
    fname = Application.GetSaveAsFilename(InitialFileName:=directiondebase, filefilter:="Exel File (*.xlsm), .xlsm", Title:="ENREGISTREMENT DU FICHIER")
    
    'au cas ou on annule
    If fname = False Then MsgBox " Enregistrement annulé": Exit Sub
    
    'enregistrement a l'endroit indiqué dans le dialogue
    ThisWorkbook.SaveAs fname, xlOpenXMLWorkbookMacroEnabled
    
    
End Sub