Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'empêcher la saisie de texte dans la textbox1
If InStr("1234567890,.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
'dans la textbox1: si un point est saisi, le remplacer par une virgule
If KeyAscii = 46 Then KeyAscii = 44
End Sub