Excel VBA correction de code d'enregistrement

[fb62840]

Bonjour à toutes et à tous,

J'ai besoin de votre aide pour corriger cette portion de code.
Je souhaite pouvoir ajouter une ligne sous la sauvegarde au format .doc
afin de sauvegarder au format html

voici le code

With wrdApp
wrdDoc.SaveAs (ActiveWorkbook.Path & "\Fiche de " & Me.TB_nom & ".doc")
' l'enregistreur de macro word donnait comme format pour html le format mht mais ça ne marche pas
wrdDoc.SaveAs (ActiveWorkbook.Path & "\Fiche de " & Me.TB_nom & ".mht")
wrdDoc.Close
wrdApp.Quit
End With