VBA- Comparer 2 dictionnaires

Hello,

Je n'arrive pas à comparer les clés de deux dictionnaires ... Pouvez-vous corriger mon code svp ?

Merci à vous.

Sub testing()

Dim d
Dim e
Set d = CreateObject("Scripting.Dictionary")

For i = 1 To 4
    d.Add Cells(i, 1), i
Next

Set e = CreateObject("Scripting.Dictionary")
For i = 1 To 4
    e.Add Cells(i, 3), i
Next

i = 7
For Each ELEMENT In d.keys
   If e.exists(ELEMENT.Value) Then
        Cells(i, 1) = ELEMENT
        Cells(i, 2) = "PRESENT"
        i = i + 1
    End If
Next

End Sub

Je me réponds pour ceux que ça intéressent

Mon erreur (mauvaise pratique ... ) c'est au niveau de la boucle qui alimente mes dico ... :

For i = 1 To 4
    d.Add Cells(i, 1), i
Next

il faut la remplacer par :

For i = 1 To 4
    d.Add Cells(i, 1).value, i
Next

R@g