Recherche correspondance multiple dans deux feuilles

Bonjour,

J'ai un petit soucis au boulot que je n'arrive pas à résoudre.

Mon cas est le suivant.

Dans un premier tableau(feuille 4) j'ai une liste de référence. Dans mon deuxième tableau(feuille 3), j'ai une liste de références qui sont toutes contenues dans le premier tableau(feuille4). Je voudrais pouvoir faire apparaitre les correspondances dans la feuille 4 (en réécrivant dans une nouvelle colonne la référence

).

Oui mais voilà, j'ai plusieurs problèmes auxquels je bute :

D'abord, pour une référence du premier tableau, j'ai plusieurs références similaires dans le second. J'aimerais donc créer des lignes à chaque fois qu'il trouve une occurence.

Ensuite, les références de mon second tableau présentent parfois des espaces à la fin, ce qui ne me permet pas de les identifier...

Voir l'exemple en pièce jointe.

J'ai tenté pleins de trucs avant mais je bloque tjs à un moment, là j'ai essayé un truc vite fait mais je bloque prq l'idée est trop compliquée

Sub test()

Dim row As Double

Dim srow As Double

Dim col As Double

Dim scol As Double

Dim Ref As String

Dim i As Double

Dim j As Double

row = 3

col = 5

srow = 3

scol = 5

i = 0

j = 0

Sheets(4).Select

While Rows < 28000

Ref = Cells(row + i, col).Value

Sheets(3).Select

While Rows < 17000

If Cells(srow + j, scol) = Ref Then

Sheets(4).Select

-> réécrire la valeur de search dans une 6ème colonne en face de la ref

J + 1

-> Si il trouve une deuxième correspondance, créer une nouvelle ligne et réécrire la valeur Ref dans la 6ème colonne en face de la ref correspondante

J'espère que vous pourrez m'aider sur ce sujet qui me bloque totalement.

Cordialement,