Parcourir, rechercher et comparer 2 valeurs dans 2 feuilles différentes

Bonjour chez forum,

Je suis nouvelle sur le forum. Svp je viens vers vous pour que vous puissiez m'aider sur un problème car je suis une débutante.

En fait, j'ai 2 feuilles. Mon code parcours les chaines de caractères (valeurs) de chaque cellule de la colonne C dans Feuil1 et les rechercher dans la colonne A de feuil2.

Les conditions sont :

1 - Si [la cellule de la colonne C est vide alors on met la cellule en rouge]

2- Sinon on recherche la (les) valeur(s) de la cellule dans la Feuil2!A, et Si la valeur ne se trouve pas dans Feuil2!A alors on met la cellule en rouge]


3 - Sinon si la valeur se trouve dans trouve dans Feuil2!A Et en plus de ça Feuil2!C < Feuil1!D, on met la cellule en Jaune sinon on laisse en blanc.

Les conditions 1 et 2 marchent parfaitement bien mais par contre je n'arrive pas à faire la condition 3

Je mets en pièce jointe les images du fichier Excel avec le résultat attendu et les explications

Merci d'avance pour le coup de main !!!

Sub Analyser4()
    Application.ScreenUpdating = False
    Range("A2:C18").Interior.Color = RGB(255, 255, 255)
    For Each Cell In Range("C2:C18")
        If IsEmpty(Cell.Value) = True Then
            'Range("C2").End(xlDown).Interior.Color = RGB(255, 0, 0)
            
            Cell.Offset(0, 0).Interior.Color = RGB(255, 0, 0)
        Else
            LesClass = Split(Cell.Value, ",")
            For i = 0 To UBound(LesClass)
                Equiv = Application.Match(Trim(LesClass(i)), Sheets("Feuil2").Range("A2:A22"), 0)
                If IsError(Equiv) = True Then
                   NonTrouve = True
                Else
                    NonTrouve = False
            
                    Exit For
                End If
            Next i
            If NonTrouve = True Then
                Cell.Offset(0, 0).Interior.Color = RGB(255, 128, 128)
            End If
        End If
    Next Cell
    Application.ScreenUpdating = True
End Sub