Bonjour E&F, forum
Ci dessous une piste de solution à adapter à ton pb
Sub tester_miniscules()
Dim texte As String, lettre As String * 1
Dim cptr As Byte
texte = Range("A1")
For cptr = 1 To Len(texte)
lettre = Mid(texte, cptr, 1)
If Asc(lettre) > 90 Then
MsgBox "le texte n'est pas entièrement en majuscule"
Exit Sub
End If
cptr = cptr + 1
Next
End Sub
Je te joins une table de caractères pour vérifier
Bon fin d'après midi
Michel