Test de couleur sur une cellule

Bonjour

j'ai un tout petit soucis avec une expression de test , ... en fait je voudrais savoir si la couleur de police d'une cellule visée est

bien la couleur noir

j'ai donc ecrit l'expression suivante :

Range("a41").End(xlUp).Offset(, 2).Select
If Range("a41").End(xlUp).Offset(, 2).Font.ColorIndex = 1 Then
MsgBox "noir"
End If

la cellule visée :

Range("a41").End(xlUp).Offset(, 2)

n'est pas vide mais bien remplie et en couleur de police noir , par contre le test précedent ne me retourne aucun message !!

je n'y comprend rien pourtant il me semble que mon test soit des plus simple ...

Pourriez vous me dire ce qui cloche ?

Un grand merci à vous

Bonjour

le test précedent ne me retourne aucun message !!

Peut-être est-ce parce que ta police de caractère n'est pas vraiment noire ?

Fais tourner cette macro pour le savoir :

Sub essai()
    MsgBox Range("a41").End(xlUp).Offset(, 2).Font.ColorIndex
End Sub

Bye !