Private Sub CommandButton1_Click()
Range("A1").Offset(Cells(Rows.Count, 1).End(xlUp).Row) = CDbl(TextBox1)
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 46 Or KeyAscii > 57 Or KeyAscii = 47 Then KeyAscii = 0
If KeyAscii = 46 Or KeyAscii = 44 Then KeyAscii = Asc(Application.International(xlDecimalSeparator))
'et pour éviter plusieurs , ou ,
If (KeyAscii = 44 And TextBox1 Like ("*,*")) Or (KeyAscii = 46 And TextBox1 Like ("*.*")) Then KeyAscii = 0
End Sub