Bonjour, pas besoin d'une macro, vous pouvez utiliser les formules EXACT ainsi que MAJUSCULE.
Par exemple
=EXACT(A1; MAJUSCULE(A1))
Renvoie VRAI si A1 est en majuscule. Ainsi vous pouvez ecrire
=SI(EXACT(A1; MAJUSCULE(A1)); A1; "")
Qui renvoie A1 uniquement si elle est en majuscule