Sub exportHTML(Feuille As Worksheet, Optional DossierExport As String = "C:\Temp\ExportIMGS\")
Dim NomXL$, fname$, maskPict$
NomXL = Split(Feuille.Parent.Name, ".")(0)
fname = DossierExport & NomXL & ".htm"
maskPict = Format(Date, """Exportdu_""ddmmyyyy_")
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
fname, Feuille.Name, "", xlHtmlStatic, maskPict, _
"Test")
.Publish (True)
.AutoRepublish = False
End With
End Sub