Fonction si le texte est barré

Bonjour,
J'ai une colonne avec des données qui peuvent être barrées (Format/Cellules/Police/Barré).
J'aimerai ajouter une colonne à côté avec une fonction "Si" qui me renvoit "FAUX" si la police est barrée et "VRAI" si elle ne l'ai pas.

Code:

---

=SI(A2= ? ;"VRAI";"FAUX")

---

Comment savoir le format de la cellule ?

Merci d'avance.

J'ai trouvé.
Pour ceux que ça interesse :

- Mettre dans un module

Code:

---

1 2 3 4

Function EstBarré(c) Application.Volatile EstBarré = c.Font.Strikethrough End Function

---

- Mettre dans une cellule

Code:

---

=SI(NON(estbarré(A2));"BON";"BARRÉ")

---