Bonjour
Voici un bout de code qui vérifies si tous les caractères de ton nom appartiennent à l'alphabet
Dim nom As String
Dim BonNom As Boolean
Dim x As Byte, y As Byte, z As Byte
nom = InputBox('nom?')
For x = 1 To Len(nom)
BonNom = False
For y = 65 To 90
z = y + 32
If Mid(nom, x, 1) = Chr(y) Or Mid(nom, x, 1) = Chr(z) Then
BonNom = True
Exit For
End If
Next
If Mid(nom, x, 1) = Chr(39) Or Mid(nom, x, 1) = Chr(45) Then BonNom = True
If BonNom = False Then Exit For
Next
If BonNom = False Then MsgBox 'erreur de saisie'
j'ai rajouter un test sur les cartères - et ' qui peuvent être dans des noms et qui dans ma macro sont refusés
Bon courage