La copie de la valeur de la cellule en préservant la mise en forme d'une cellule à l'autre dans excel à l'aide de VBA

Dans excel, je suis en train de copier du texte à partir d'une cellule à une autre cellule dans une autre feuille. La source de la cellule contient du texte formaté (gras,souligné,couleurs différentes). Mais quand je copie le texte à l'aide de VBA à l'autre de la cellule, la mise en forme est perdue.

Je sais que c'est parce que excel est la copie uniquement la valeur du texte. Est-il un moyen qui nous permet de lire la texte HTML (plutôt que du texte brut) à partir d'une cellule?

J'ai googlé et n'ont pas à obtenir des réponses. Je sais que si nous utilisons des méthodes de copier et coller, on peut copier la mise en forme.
E. g.

Range("F10").Select
Selection.Copy
Range("I10").Select
ActiveSheet.Paste

Mais je veux le faire sans un copier-coller depuis ma destination est une cellule fusionnée et pas de taille identique comme source de cellules. Est-il une option disponible dans excel VBA pour ce faire?

EDIT:
J'ai été en mesure de le résoudre avec le code suivant.

Range("I11").Value = Range("I10").Value
For i = 1 To Range("I10").Characters.Count
    Range("I11").Characters(i, 1).Font.Bold = Range("I10").Characters(i, 1).Font.Bold
    Range("I11").Characters(i, 1).Font.Color = Range("I10").Characters(i, 1).Font.Color
    Range("I11").Characters(i, 1).Font.Italic = Range("I10").Characters(i, 1).Font.Italic
    Range("I11").Characters(i, 1).Font.Underline = Range("I10").Characters(i, 1).Font.Underline
    Range("I11").Characters(i, 1).Font.FontStyle = Range("I10").Characters(i, 1).Font.FontStyle
Next i

OriginalL'auteur BlackCursor | 2012-08-07