Private Sub TextBox1_AfterUpdate()
' TextBox1.Value = Format(TextBox1.Value, "# ### ##0.00 €")
TextBox1.Value = Replace(Format(TextBox1.Value, "# ### ##0.00 €"), ",", ".")
Cells(1, 1) = Val(TextBox1) 'test d'injection dans cellule
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
If Not Chr(KeyAscii) Like "[0-9-,]" Then KeyAscii = 0
End Sub