XLS -> HTML demande aide

Bonjour tout le monde,

je suis sur un projet de stage la et je doit faire une macro qui me permettrai de generer des pages web, jusqu'a present la macro marche pour generer les page web
Cependant le fichier XLS contien beaucoup de lien hypertextes ( des liens entre les differentes feuilles) et lorsque j'utilise ma macro les liens ne sont pas repris ils ne fonctionne pas
Est ce que quelqu'un peut m'aider a ameilorer mon code pour qu'il soit capable de récuperer tous les liens svp
voici mon debut de code :


<code=vba>Sub test2()
Dim i As Byte, Chemin As String, NomFich As String

Chemin = "C:\Documents and Settings\ahorlier\Bureau"
NomFich = "Page_test"

For i = 1 To Sheets.Count
ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceSheet, Filename:=Chemin & NomFich & i, Sheet:=Sheets(i).Name).Publish
Next i

End Sub</code>

Merci d'avance