Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With TextBox1
v = Replace(.Value, " ", "")
Select Case KeyCode
Case 96 To 105, 48 To 57
If KeyCode < 96 Then KeyCode = KeyCode + 48
If InStr(1, v, ",") > 0 Then If Len(Split(v, ",")(1)) = 2 Then KeyCode = 0: Exit Sub
Case 110, 188: KeyCode = 188
If InStr(1, .Value, ",") > 0 Or .Value = "" Then KeyCode = 0
v = Split(Format(v, "#,##0.00"), ",")(0)
.Value = v & ",": KeyCode = 0
Case 8 'ON LAISSE FAIRE LA TOUCHE BACK
Case 13, 9
.Value = Format(.Value, "#,##0.00")
Case Else: KeyCode = 0 'Toutes les autres touches sont bloquées
End Select
End With
End Sub