Salut BBAK,
pour des raisons que j'ignore, les nombres ne peuvent PAS, sauf correction d'un crack, être formatés via CHARACTERS(), excepté si ils sont précédés d'une apostrophe : '125.
Cela n'empêche pas de les utiliser dans des formules mais, attention, le résultat de cette formule ne pourra être intercepté par VBA et le nombre ne pourra pas être formaté.
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iIdx%
'
If IsNumeric(Target) And Target <> "" And InStr(Target, ",") > 0 Then _
iIdx = InStr(Target, ","): _
If Len(Target) > iIdx Then _
Target.Characters(iIdx + 1, Len(Target) - iIdx).Font.Color = RGB(255, 0, 0)
'
End Sub
Je te laisse le fichier pour tes essais.
A+