Private Sub CommandButton1_Click()
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Users\" & Environ("UserName") & "\Desktop\Fichier convert.htm", "Feuil1", "$B$3:$G$15", _
xlHtmlStatic, "Save html_7023", "Mise à jour le : " & Now())
.Publish (True)
.AutoRepublish = False
End With
End Sub