Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b, i
a = Array("C11", "C12", "F24") 'à adapter
b = Array("CHVSGRI", "100,200,300", "100") 'à adapter
For i = 0 To UBound(a)
b(i) = Replace(b(i), ",", Chr(130))
If Range(a(i)) = "" Then
Range(a(i)).Font.ColorIndex = 18
Range(a(i)).Font.Bold = False 'non gras
Range(a(i)) = b(i)
ElseIf Range(a(i)) <> b(i) Then
Range(a(i)).Font.ColorIndex = Automatic
Range(a(i)).Font.Bold = False 'gras, facultatif
End If
Next
End Sub