Re
merci Jmps
mé résultat inchangé
je te mets mon bout de code pour voir ce qui est faisable
For y = 1 To Len(TextBox1)
If Mid(TextBox1, y, 1) = ' ' Then
MsgBox 'Chiffres sans espace S.V.P. Recommencez la saisie !', vbCritical, 'ATTENTION'
TextBox1 = ''
Cancel = True
TextBox1.SetFocus
Exit Sub
End If
Next