Aide Macro Recherche V + Boucle

Bonjour à tous,

J'ai créé une macro permettant d'effectuer une recherche V.

Très exactement ma recherche V :

• recherche la cellule E3 (variable) de la feuille 2 (nommée données) dans la plage de données D83:BD341 de la feuille 3 (nommée tableau)
• la valeur trouvée doit s'afficher en I3 (variable)
• la donnée recherchée se trouve dans la colonne 42

Voilà ce que ça donne pour deux lignes :

Sub test ()
With sheets("tableau")

.Range("I3").Value=WorksheetFunction.Vlookup(.Range("E3").Value,Sheets("Données").Range("D83:BD341"), 42, False)
.Range("I4").Value=WorksheetFunction.Vlookup(.Range("E4").Value,Sheets("Données").Range("D83:BD341"), 42, False)

End With

End Sub 

Comme j'ai cette écriture pour un nombre de lignes très important, j'aimerais pouvoir créer une boucle.

J'ai cherché sur le forum, j'ai trouvé des situations qui me semblaient similaires mais en adaptant à mon cas ça ne marche pas.

Pour l'instant j'en suis là mais ça ne marche pas :

Sub test ()

Dim i As Integer

For i = 3 To 41

Range("I" & i).Value = WorksheetFunction.VLookup(.Range("E3").Value, Sheets("Données").Range("D83:BD341"),42, False)
Next i

End Sub 

Pourriez-vous m'aider ?

Merci beaucoup !!

Bonjour Jacques.

As-tu la possibilité de fournir un fichier sans données personnelles ?

Je ne suis pas fan des recherches de ce type en VBA, je préfère boucler avec un tableau virtuel.

Merci thebenoit59 pour ton intérêt à mon problème.

Voilà un fichier qui permet de simuler la macro.

En espérant que tu sois toujours disponible pour m'aider.

Bonjour Jacques.

Bonjour le forum.

Voici une première solution.

Tu n'as plus besoin des colonnes Concaténées.

J'ai commenté le code pour que tu t'y retrouves.