Test sur valeurs de deux cellules

Bonjour tout le monde,

J'ai écrit un code pour comparer les cellules de la feuille 3 a toutes les cellules de la feuille 4, et si il y a une valeur égale, il faut changer la couleur de la ligne ou se trouve la cellule de la feuille 3.

Malheureusement le programme fonctionne mais sans jamais entrer a l'interieur du test "if" alors que il y a des valeurs égales.

Mon code est le suivant:

Dim S3 As Worksheet
Dim S4 As Worksheet
Set S3 = Sheets("re reduziert")
Set S4 = Sheets("a enlever")
Dim inutile As Range
Set inutile = S4.Range("A2")
Dim refinutile As Range
Set refinutile = S4.Range("C2")
Dim doubl3 As Range
Set doubl3 = S3.Range("A2")
Dim reference As Range
Set reference = S3.Range("C2")

Do While Not IsEmpty(reference)

Do While Not IsEmpty(refinutile)

If (doubl3.Value = inutile.Value) Then
ColorRow = doubl3.Rows.Row
Rows(ColorRow).Interior.ColorIndex = 20
End If
ActiveWorkbook.Worksheets("a enlever").Select
Set refinutile = refinutile.Offset(1, 0)
Set inutile = inutile.Offset(1, 0)

Loop
S3.Activate
Set reference = reference.Offset(1, 0)
Set doubl3 = doubl3.Offset(1, 0)
S4.Activate
Set refinutile = Range("C2")
Loop

Avec le point d'arret j'ai pu voir que la partie en gras n'est jamais vérifiée :-(
Est-ce que quelqu'un connait le probleme?

Merci beaucoup

Lucie