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