Compter bordure encadrées avec BorderAround

Bonjour

J'ai encadré des cellules avec :

BorderAround ColorIndex:=3, Weight:=xlThick

j'aimerai les compter

If F.BorderAround.ColorIndex = 3 Then ne passe pas

Cette boucle est incluse dans une autre boucle

For Each F In Plage

If F.BorderAround.ColorIndex = 3 Then

Compte_Bordure = Compte_Bordure + 1

d.Offset(0, 90 + Compte_Bordure) = Compte_Bordure

End If

merci

ne trouvant pas la solution avec borderaround, je suis passer par borders

For Each f In Plage
If f.Borders.ColorIndex = 3 Then
Compteur = Compteur + 1
d.Offset(0, 90) = Compteur
End If

Next
Compteur = 0