Help,Detection et transfert doublons avec vlookup

Bonjour la communauté,
je vous consulte après deux jours de recherches personelles ,

J'ai des valeurs qui se repetent dans feuil1 exemple dans la colonne B les 'X'.
Je dois remplir les lignes des doublons x sachant que les valeurs viennent de la feuille 2 et

feuil1 :

   A B    Y    Z 
1
2
3    X vide vide
4    X  vide vide
5

feuil 2:

   Z B     Y               Z 
1
2
3    X valeur a récupérer
4    X valeur a récupérer
5

Voici le code (modifié d'un tutoriel développez.net), j'ai mis en couleur les doublons ça marche bien , mais la fonction vlookup ne me récupére pas les valeurs voulues :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Sub test()
 
IdentifieDoublons Range("K2:K1000"), Range("C5:E65000")
 
End Sub
 
 
Sub IdentifieDoublons(Plage As Range, plagesortie As Range)
    Dim Cell As Range
    Dim Un As Collection
    Set Un = New Collection
 
    On Error Resume Next
 
    'Boucle sur la plage de cellule
    For Each Cell In Plage
        Dim i As Integer
        i = 0
        i = i + 1
        'Pour ne pas prendre en compte les cellules vides
        If Cell <> "" Then
            'Ajoute le contenu de la cellule dans la collection
            Un.Add Cell, CStr(Cell)
 
            'Si la procédure renvoie une erreur, cela signifie que l'élément
            'existe déjà dans la collection et donc qu'il s'agit d'un doublon.
            'Dans ce cas la macro colorie la cellule en vert.
            If Err <> 0 Then Cell.Interior.ColorIndex = 18
 
            Range("Z" & i).Value = Application.WorksheetFunction.VLookup(Err.Offset(0, -1).Value, plagesortie, 2)
 
        End If
    Next Cell
 
    Set Un = Nothing
End Sub

Je vous remercie pour votre aide
Cordialement

Option Explicit Sub test() IdentifieDoublons Range("K2:K1000"), Range("C5:E65000") End Sub Public Sub IdentifieDoublons(Plage As Range, plagesortie As Range) Dim Cell As Range Dim Un As Collection Set Un = New Collection Dim i As Integer On Error Resume Next i = 0 'Boucle sur la plage de cellule For Each Cell In Plage i = i + 1 'Pour ne pas prendre en compte les cellules vides If Cell <> "" Then 'Ajoute le contenu de la cellule dans la collection Un.Add Cell, CStr(Cell) 'Si la procédure renvoie une erreur, cela signifie que l'élément 'existe déjà dans la collection et donc qu'il s'agit d'un doublon. 'Dans ce cas la macro colorie la cellule en vert. If Err <> 0 Then Cell.Interior.ColorIndex = 18 Range("Z" & i).Value = Application.WorksheetFunction.VLookup(Cells.Offset(0, -1).Value, plagesortie, 2, False) Err.Clear End If Next Cell Set Un = Nothing End Sub