Correspondance entre deux listes de données

Bonjour,

Je suis assez nouvelle sur VBA excel et je bloque sur une macro qui a été réalisée par quelqu'un d'autre et qui ne fonctionne pas réellement.

Voilà j'ai deux listes de données, sur excel, une avec des adresses de personnes dans la colonne O (cellule 1) et une autre où chaque adresse correspond à un critère souhaité dans la colonne IO (cellule 3). Normalement, une fois la macro executée, je devrai voir un "O" (oui) indiqué 4 colonne à droite de la cellule 1 (cad colonne S) à chaque fois que l'adresse de la cellule 1 correspond à celle de l'adresse de la cellule 3. Pourtant, quand j'exécute la macro, j'aboutis à un "O" sur toutes les cellules de la colonne S. Que faire ?

Voici la macro actuelle :

Sub Comparaison()
Application.ScreenUpdating = False
Dim Cellule1 As Range, Cellule2 As Range, Cellule3 As Range
Workbooks("Declarations.xls").Activate
For Each Cellule1 In Range("O3:O" & 354)
For Each Cellule2 In Range("IP3:IP" & 209)
If Cellule1 = Cellule2 Then
Cellule1.Offset(0, 2).Value = Cellule2.Offset(0, 1)
Exit For
End If
Next Cellule2
For Each Cellule3 In Range("IO3:IO" & 215)
If Cellule1 = Cellule3 Then
Cellule1.Offset(0, 4).Value = "O"
Exit For
End If
Next Cellule3
Workbooks("Declarations.xls").Activate
Next Cellule1
Application.ScreenUpdating = True
End Sub

Merci beaucoup pour votre aide