Modification de la couleur du texte dans une formule.

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("A1")
With Target.Characters(Start:=1, Length:=2).Font
        .ColorIndex = 4
End With
With Target.Characters(Start:=4, Length:=2).Font
        .ColorIndex = 5
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A1:A100]) Is Nothing Then ' A adapter
If Target.Count = 1 Then Target.Characters(Left(1, 2)).Font.ColorIndex = 4
If Target.Count = 1 Then Target.Characters(Left(3, 1)).Font.ColorIndex = 1
If Target.Count = 1 Then Target.Characters(Start:=6, Length:=Len(Target)).Font.ColorIndex = 3
End If
End Sub