bonjour Scoy
apres quelques tests , dans le cas de l'utilisation d'un CommandButton , il semblerait que la selection de la feuille soit impérative avant de pouvoir utiliser la methode Publish
pour resoudre ce probleme tu peux essayer d'insérer un Range("A1").Select en debut de macro
......
Dim olMail As MailItem
Range("A1").Select
Fichier = "C:\Documents and Settings\michel\maPageHtml.htm" 'adapter le chemin
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Fichier, "Feuil1", "", xlHtmlStatic, "", "").Publish
......
bonne soirée
MichelXld