Erreur avec FileFormat

Bonsoir 

j'ai utilisé ce code afin que je puisse enregistrer ma facture avec l'extention .xlsm mais en vain ...

le fichier s'enregistre sans aucune extention 

j'ai besoin de votre aide merci voila mon code 

Sub Enregistrer()

Dim invno As String
Dim custname As String
Dim path As String
Dim fname As String

invno = Range("E2")
custname = Range("E5")
amt = Range("E39")
dt_issue = Range("C8")
path = "/Users/mustaphaouibork/Desktop/soferalu/Test/"
fname = invno & "_" & custname


With ActiveWorkbook
.Sheets(1).Name = "Facture"
.SaveAs FileName:=path & fname, FileFormat:=53

End With
End Sub