bonsoir esai ce code simplement Private Sub TextBox1_Change()
If TextBox8 <> 1 Then
TextBox1 = ''
End If
End Sub dans le cas present tu autorise que le chiffre 1 enfin si j ai bien compris la question autrement si c est le nombbre de caracteres passe par la propriete maxlength & defini le nombre salutations