Condition Vba

Bonjour,

J'ai un problème avec une condition sous Excel : il trouve que la condition est fausse, alors qu'elle devrait être vraie.*

Voici un extrait de mon tableau de 600 lignes. Pour un lieu donné, et un code donné, je dispose d'une valeur. J'ai également une deuxième liste, avec le lieu, le code, et je voudrais compléter la valeur.
Je veux seulement : si lieu 1 = lieu 2, et si code 1 = code 2, alors valeur à compléter = valeur 1

Lieu 1 Code 1 Valeur 1 Lieu 2 Code 2 Valeur à compléter
ABC Z126 2,2 ABC Z08
DEF Z126 2,2 ABC Z10ZU
GHI Z126 2,2 GHI Z11
ABC Z127Z 2,2 GHI Z126
DEF Z127Z 2,2 DEF Z126
DEF Z131 2,2 DEF Z127Z
ABC Z131ZZ 2,3 DEF Z131
DEF Z131ZZ 2,3 GHI Z1313
GHI Z131ZZ 2,5 GHI Z1313ZU
DEF Z229Z 2,3 GHI Z131ZZ
GHI Z229Z 2,3 GHI Z14Z
ABC Z230 2,3 GHI Z1613
DEF Z230 2,3 ABC Z19Z


Mon code est le suivant :
Sheets("Feuil1").Select
For i = 2 To 600
For j = 2 To 600
If Range("A" & i).Value = Range("D" & j).Value Then
If Range("B" & i).Value = Range("E" & j).Value Then
Range("F" & j).Value = Range("C" & i).Value
End If
End If
Next j
Next i
End
Le problème est que la condition code1=code2 n'est jamais vraie.

Merci beaucoup pour votre aide.
Cordialement
L.