police d'ecriture

Bonjour à tous, je cherche de l'aide pour la rédaction d'une Macro. Dans cette macro, je souhaite, sur un fichier excel déjà existant , parcourir chaque cellule et d'analyser la police d’écriture de celle-ci. ( ex calibri) Si une police autre que le calibri est détecté, un message soit affiché...