Salut Jean-Michel,
Si ta TextBox est sur une feuille, tu peux entrer ceci dans le code de la feuille :
Private Sub TextBox1_LostFocus()
Dim Chn As String
Chn = TextBox1.Text
If IsNumeric(Chn) Then
Chn = Format(Chn, "# ##0.00")
TextBox1.Text = Chn
End If
End Sub
Le format s'applique dès que l'utilisateur quitte la TextBox.
A+
Horatio