Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
For k = 1 To Len(TextBox1.Text)
If Mid(TextBox1.Text, k, 1) = " " Then X = X + 1
Next
If X > 25 Then KeyAscii = 0
Select Case KeyAscii
Case 32 'espace
Case 65 To 90
Case 97 To 122
Case Else
KeyAscii = 0
End Select
End Sub