[VBA-E] Recherche en vba

Bonjour à tous,

Je fais mes débuts en VBA, et je suis en panne ...:oops:

Pour simplifier : dans un classeur excel, j'ai 2 feuilles(feuil1, feuil2)
Dans chaque feuille colonne A une référence sur 5 caractères (feuil2=toutes les références; feuil1=une partie des mêmes références)
En colonne B de la feuil2, un libellé.

Je cherche donc à ajouter dans la colonne B de la feuil1, le libellé disponible dans la feuil2 colonne B pour les références correspondantes des colonne A des 2 feuilles.

Par quel bout dois-je m'y prendre ???

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

dernièreLigne2 = Worksheets("Datas").Range("A1").SpecialCells(xlCellTypeLastCell).Row dernièreLigne1 = Worksheets("Suivi").Range("A1").SpecialCells(xlCellTypeLastCell).Row Plage = "A2:A" & dernièreLigne2   For Each Cellule In Worksheets("Datas").Range(Plage) Ref = Cellule.Value NoLigne2 = Cellule.Row With Worksheets("Suivi").Range("A3:A" & dernièreLigne1) Set c = .Find(Ref, LookIn:=xlValues) If Not c Is Nothing Then NoLigne1 = c.Row Worksheets("Suivi").Cells(NoLigne1, 2) = Worksheets("Datas").Cells(NoLigne2, 6) Worksheets("Suivi").Cells(NoLigne1, 3) = Worksheets("Datas").Cells(NoLigne2, 3) Worksheets("Suivi").Cells(NoLigne1, 5) = Worksheets("Datas").Cells(NoLigne2, 4) Worksheets("Suivi").Cells(NoLigne1, 6) = Worksheets("Datas").Cells(NoLigne2, 7) Worksheets("Suivi").Cells(NoLigne1, 7) = Worksheets("Datas").Cells(NoLigne2, 8) Worksheets("Suivi").Cells(NoLigne1, 8) = Worksheets("Datas").Cells(NoLigne2, 9) Worksheets("Suivi").Cells(NoLigne1, 9) = Worksheets("Datas").Cells(NoLigne2, 10) End If End With Next Cellule

---