Bonjour, Salut Juice
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pos%
If Intersect(Target, Me.Columns("F")) Is Nothing Then Exit Sub
With Target
.Font.Color = vbBlack
pos = InStrRev(.Value, "-")
.Characters(pos, 255).Font.Color = vbGreen
End With
End Sub
Cordialement.