XL 2019 Modifier la couleur de certains caractères dans une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible$, L%, coul&, pos%
cible = "§": L = Len(cible)
coul = vbWhite 'code couleur blanche
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target 'si entrées multiples
    pos = InStr(Target, cible)
    If pos Then Target.Characters(pos, L).Font.Color = coul
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible$, L%, coul&, x$, i%
cible = "§": L = Len(cible)
coul = vbWhite 'code couleur blanche
Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target 'si entrées multiples
    x = Target
    For i = 1 To Len(x)
        If Mid(x, i, L) = cible Then Target.Characters(i, L).Font.Color = coul
Next i, Target
End Sub

Set Target = Intersect(Target, UsedRange)
If Target Is Nothing Then Exit Sub