Conditions selon couleurs de cellules

Bonjour le forum,

Dans la colonne A, si une cellule est Verte alors en colonne B mettre "OK" et sinon, "NOK"...

Le fichier :

Je vous remercie par avance

Hello,

Avec une fonction perso :

Function EstVert(Cellule As Range) As String
    If Range(Cellule.Address).Interior.Color = 10347725 Then EstVert = "OK" Else EstVert = "NOK"
End Function

Il faudra peut être ajuster le num de couleur pour vert différent de celui qui est en exemple

Bonjour

Bonjour à tous

une variante

Bye !

Parfait,

Merci à vous 2 !