Private Sub TextBox20_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim pos As Integer
pos = InStr("&é(-è_çà" & [COLOR="red"]Chr[/COLOR](34) & Chr(39) & ".=", Chr(KeyAscii))
If pos > 0 Then KeyAscii = Asc(Mid("1256789034,-", pos, 1))
Select Case KeyAscii
Case Is < 48, Is > 57 'different 0 à 9
KeyAscii = 0
MsgBox "Veuillez saisir un chiffre compris entre 0 et 9", vbExclamation, "Erreur de saisie"
End Select
End Sub