[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] Intersect(Target, Range("A1:A20")) [COLOR=blue]Is Nothing Then Exit Sub[/COLOR]
[COLOR=blue]Select Case[/COLOR] Left(Target.Value, 1)
[COLOR=blue]Case[/COLOR] "A"
Coul = 3
[COLOR=blue]Case[/COLOR] "B"
Coul = 5
[COLOR=blue]Case Else[/COLOR]
Coul = XlAutomatique
[COLOR=blue]End Select[/COLOR]
Target.Characters(1, 1).Font.ColorIndex = Coul
Target.Characters(2, Len(Target)).Font.ColorIndex = XlAutomatique
[COLOR=blue]End Sub[/COLOR]