Bonjour
je préfère mette un KeyPress
A voir
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) > 13 Then KeyAscii = 0: Beep
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep
Select Case Len(TextBox1)
Case 2, 5, 8, 11
If ChrW(KeyAscii) <> " " Then KeyAscii = Asc(" ")
End Select
End Sub
A+
Maurice