Boucle matching de données

Bonjour,

j'aimerais votre aide pour construire une boucle qui me permettrait de matcher des données.

Je détiens une liste de noms dans une feuille et une autre dans une seconde feuille. Mon but est de copier des données de la seconde feuille dans la première si le nom entre les feuilles est le même.

J'ai déjà essayé ce code qui fait planter mon programme excel :

Sub Fusion_FEUILLE()

Dim x As Integer

Dim Z As Integer

For x = 2 To 2001

For Z = 2 To 2001

If Sheets("Feuil1").Cells(x, 1) = Sheets("Feuil2").Cells(Z, 1) Then

Sheets("Feuil2").Cells(Z, 2) = Sheets("Feuil1").Cells(x, 4) And Sheets("Feuil2").Cells(Z, 3) = Sheets("Feuil1").Cells(x, 5)

End If

Next Z

Next x

End Sub

Le problème dans mon code est le suivant :

Le premier nom de la première feuille va être comparé avec le premier nom de la deuxième feuille

si aucune correspondance n'est détectée, le code va faire que le second nom de la première feuille sera comparé avec le second nom de la seconde feuille etc...

J'aimerais comparer le premier nom de la première feuille avec toute la liste de noms de la seconde feuille avant de passé au nom suivant.

J'espère avoir bien expliqué mon problème

Ci-joint un fichier test,

en vous remerciant de vos retours,

Tu veux du VBA parce que c'est joli, ou alors c'est nécessaire ?

Parce que sinon, une simple formule de recherchev peut régler ton problème

une formule vba semble plus adaptée que de générer la fonction recherche puisque mon fichier original à plus de 2000 noms dans les deux feuilles