Colorisation balises HTML

Salut !

Je dispose d'un fichier excel avec dans une colonne, des lignes contenant du contenu html par exemple:

<p>texte<u>suite texte</u></p>

Je souhaiterais que pour toutes les cellules de cette colonne, colorier les balises html.
J'ai commencé cela:

Sub colorize_html_code(balise As String)
Dim cpt As Integer
Dim i As Long, j As Long
Dim maChaine As String
'Dim colonne

'colonne = InputBox("Which column ?")


maChaine = Range("A1").Value
   
    i = InStr(1, maChaine, balise)
    j = 1
    Do While i
       
      MsgBox ("Position de " & balise & ":" & i)
        cpt = cpt + 1
   
        j = i + 1
        i = InStr(i + 1, maChaine & balise, balise)
       
        If balise = "<b>" Then
        Range("A1").Characters(Start:=i, Length:=3).Font.ColorIndex = 3
        Else
        Range("A1").Characters(Start:=i, Length:=4).Font.ColorIndex = 5
        End If

    Loop
    cpt = cpt - 1
'MsgBox ("Total:" & cpt)

End Sub

Mais ...je pense être sur la mauvaise voie...
Si quelqu'un aurait une idée...
Merci !

Coding is not a crime!