Macro MFC synthaxe juste mais execution menant à rien

Bonjour à tous et à toutes!

Voici mon petit souci, je cherche à faire une mise en forme conditionnelle via VBA.

Je souhaite colorer une ligne selon la valeur de 2 des celulles de la ligne.

J'ai alors écris le code suivant :

Sub mefc()
Dim iRE
    Dim RE As Worksheet
    Set RE = Worksheets("Extraction")

        iRE = 2

        For iRE = 2 To Cells.Find("*", , , , , xlPrevious).Row
            If RE.Range("F2").Value = "" And RE.Range("K2").Value > 7 Then
            RE.Range("A2").EntireRow.Interior.ColorIndex = 6
            End If
        Next
End Sub

Lorsque je l'execute, le débogueur ne s'active pas, il execute ma macro sans souci mais rien ne ce produit! J'ai essayé de faire des modifications dans l'écriture mais rien n'y fait! Je n'obtiens pas le résultat escompté!

Si vous pouviez prendre quelques minutes pour analyser mon code et trouver mon erreur, ce serait vraiment cool s'il vous plaît!

Merci par avance, je vous joint le fichier pour que vous puissiez voir le souci plus facilement.

lien:

Cordialement

Florian

Sub mefc()
Dim iRE
    Dim RE As Worksheet
    Set RE = Worksheets("Extraction")

        iRE = 2

        For iRE = 2 To Cells.Find("*", , , , , xlPrevious).Row
            If RE.Range("F" & iRE).Value = "" And RE.Range("K"& iRE).Value > 7 Then
            RE.Range("A"& iRE).EntireRow.Interior.ColorIndex = 6
            End If
        Next
End Sub

Super! Merci beaucoup EngueEngue! Ca fonctionne parfaitement!

Merci de te réactivité!