Private Sub TextBox1_Change()
Dim Valeur As Byte
'nb caracteres maxi dans textbox
TextBox1.MaxLength = 6
Valeur = Len(TextBox1)
If Valeur = 2 Then
TextBox1 = TextBox1 & ","
ElseIf Valeur > 2 And Valeur < 4 Then
TextBox1 = Replace(",", ",", TextBox1)
End If
End Sub