Sauvegarder en xlsm

Bonjour,
j'ai cherché longtemps à sauvegarder des fichiers Excel en Pdf et maintenant que cela fonctionne, je m'aperçois que ce serait mieux de les sauvegarder en xlsm, ceci afin de pouvoir "rappeler" un de ces fichier et le mettre à jour ou y changer certaines choses.
la partie de code qui sauvegarde mon fichier est :

Chemin = "C:\Users\bs382\Desktop\ArchivageFactures\" & NomDossier & "\"

If NomDossier = "" Then Exit Sub

ActiveSheet.ExportAsFixedFormat Type:=xlTypexlsm, Filename:= _
Chemin & "Bon de Commande N° _" & Range("E1").Value & " " & Range("C5").Value & ".xlsm", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=5, openafterpublish:=False

je ne vois la dedans rien qui "dise" que ça doit être en pdf et pourtant mes sauvegardes se font en pdf
que puis-je faire pour que ma sauvegarde se fasse en xlsm ?
merci de votre aide.

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.