bonjour eric si j ai bien compris tu utiliser les evenements Private Sub TextBox1_KeyUP(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 46
TextBox1 = ''
End Select
End Sub'touche supprim
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 8
Case Is = 13, 96 To 105
Case Else
KeyCode = 0
End Select
End Sub'salutations