Sub HTLMVILLE()
Sheets("LIGNE").Activate
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"D:\MONDOSSIER\RESEAUX\HTML\VILLE.htm", "VILLE", "$A$1:$P$1002", _
xlHtmlStatic, "Save html_7023", "MISE A JOUR : " & Now())
.Publish (True)
.AutoRepublish = False
End With
End Sub