Je met un début de code, mais je n'arrive pas à le faire fonctionner sur les nombres, qui reviennent automatiquement à la taille du reste de la cellule. Quelqu'un de plus compétent pourra peut-être s'en servir comme base !
Sub RéduireDecimales()
Dim Plage As Range, DebDecimal As Byte
Set Plage = Application.InputBox("Sélectionner la plage des valeurs", Type:=8)
For Each Cell In Plage
DebDecimal = InStr(Cell, ",") + 1
Cell.Characters(Start:=DebDecimal, Length:=Len(Cell) + 1 - DebDecimal).Font.Size = 8
Next
End Sub