La couleur de la police change en fonction de la lettre

Dim texte As String
Dim pos As Integer
 Dim x As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static selection_precedente As String
'Enregistrement de l'adresse de la sélection actuelle :
    selection_precedente = Target.Address
texte = Target.Value
Macro1
Macro2
End Sub
Sub Macro1()
Do
        'Boucle tant que le compteur x est inférieur au texte
        Do While x < Len(texte)
            'Incrémente le compteur.
            x = x + 1
'condition : si le xième caractère du texte correspond
    If Mid(texte, x, 1) = "p" Then
        pos = x 'définit la variable pos
        With ActiveCell.Characters(Start:=pos, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3 'rouge
    End With
    End If 'fin de la condition
  Loop
 Loop Until x = Len(texte)
End Sub
Sub Macro2()
Do
        'Boucle tant que le compteur x au texte
        Do While x < Len(texte)
            'Incrémente le compteur.
            x = x + 1
'condition : si le xième caractère du texte correspond
    If Mid(texte, x, 1) = "t" Then
        pos = x 'définit la variable pos
        With ActiveCell.Characters(Start:=pos, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 5 'bleu
    End With
    End If 'fin de la condition
  Loop
 Loop Until x = Len(texte)
 End Sub