Rechrche verticale avec plusieurs valeurs

Hello forum,

J'ai trouvé un code qui permet de faire une recherchev dans la colonne A de la feuille "Feuil1" pour en rappatrier plusieurs valeurs vers la feuille "MESSAGES-OK".

Dans Feuil1 j'ai:
ColA ColB
1 A
1 A
2 B
2 B
3 C
4 D

Dans "MESSAGES-OK" je rappatrie:
ColA ColB ColC ColD
1 A A
2 B B
3 C
4 D

Et là, il a sauté la colonne B.

Question:Comment faire pour avoir en "MESSAGES-OK"
ColA ColB
1 A,A
2 B,B
3 C
4 D

Voici le code:

Sub options()
Dim Model As String
Dim cells1, cells2 As Range
Dim i
For Each cells1 In Worksheets("MESSAGES-OK").Range("A1:A" & Worksheets("MESSAGES-OK").Range("A65536").End(xlUp).Row)
Model = cells1.Value
i = 2
For Each cells2 In Worksheets("Feuil1").Range("A1:A" & Worksheets("Feuil1").Range("A65536").End(xlUp).Row)
If cells2.Value = Model Then
cells1.Offset(0, i) = cells2.Offset(0, 1).Value
i = i + 1
End If
Next
Next
End Sub

D'avance merci de votre aide.