XL 2010 VBA Save html en UTF-8

[Bens7]

Bonjour à tous je possède un code qui fonctionne parfaitement afin de créer une page HTML à partir d'une plage :

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

Mon souci est que l'horsque j'upload cette page sur le net les caractères UTF8 ne sont pas visible .
Auriez vous la solution afin de définir l'encodage utf8 dans ce même code .

Merci

 

[Bens7]

P'tit up?