Copier le contenu d'une cellule avec son lien dans un HTML

Bonjour à tous,

Je reviens vers vous pour cette difficulté que je rencontre depuis un moment.

En fait, j'importe les données d'une plage de cellules dans un tableau HTML inclu dans le corps d'un email.

ce qui marche parfaitement, sauf que certaines cellules ont des liens hypertexte que je voudrais faire ressortir dans le mail.

ce qui n'est pas le cas avec mon code actuel, seulement la valeur de la cellule sans lien hypertexte est copiée dans le tableau.

ci-dessous un extrait du code

For i = 5 To 5 'ligne 5 par exemple
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    For j = 10 To 19 'nombre de colonnes (exemple plage J5:R5)
    strHTML = strHTML & "<TD bgcolor=''bordercolor='black'align='center'><FONT COLOR='black'SIZE=3>" _
            & [i][b]Cells(i, j)[/b][/i] & "</FONT></TD>"
    Next j
    strHTML = strHTML & "</TR>"

la valeur de la cellule est copiée au niveau de Cells (i, j) (en gras), je me suis dit qu'ajouter une propriétés de la cellule tels que Cells(i, j).Copy ou celle Cells (i, j).hyperlinks pouvait faire l'affaire mes cela ne fonctionne pas.

Quelqu'un à t'il une idée svp?

Merci,