Private Sub TextBox42_AfterUpdate()
Dim T$
With TextBox42
T = Replace(.Text, ".", ",")
If IsNumeric(T) Then .Text = Format(T, "#"".""##0.00 CHF") 'le point avant les milliers
'ou
'If IsNumeric(T) Then .Text = Format(T, "#.##0.00 CHF") ' espace avant les milliers
End With
End Sub