Pb vlookUp avec condition en VBA

Bonjour je souhaite utiliser dans VBA vlookup pour faire une recherche sous condition (Je précise que je dois utiliser VBA dans mon projet). En fait je veux obtenir les données ("Sens attendu") d'une feuille "Origine" et les récupérer dans une autre feuille "Destination" sous condition de ne pas avoir "En cours" dans le fichier d'origine dans la colonne "Sens attendu". Les 2 feuilles ont en commun un numéro de compte. Je joins un fichier illustrant mon propos. J'ai essayé le code suivant mais il ne marche pas comme attendu :

Code:

---

1 2 3 4 5 6 7 8

Dim compteur As Long For compteur = 2 To 6 If Sheets("Origine").Range("b" & compteur) <> "En cours" Then Range("B2:B4") = Application.WorksheetFunction.VLookup(Range("A2:A4").Value, Worksheets("Origine").Range("A2:B6"), 2) End If Next   End Sub

---

Par avance merci8-)

Bonjour,
Si tu expliquais déjà ce qui ne va pas, cela ferait peut-être avancé les choses.
A la lecture de ton code, je vois plusieurs problèmes.
La méthode vLookUp de WorksheetFunction fonctionne exactement comme la formule VLOOKUP/RECHERCHEV d'Excel.
Il y a 4 arguments dont le quatrième est facultatif mais dont il vaut mieux mettre la valeur à False quand on ne cherche pas dans une fourchette de données ou que l'on ne cherche pas la valeur la plus proche. Ce 4ème argument tu l'as omis.

Le premier argument est la valeur que l'on cherche qui peut-être la valeur d'une cellule et pas une plage de cellules et enfin la valeur renvoyée doit l'être aussi sur une cellule et pas une plage de cellules.
Donc le code ci-dessous aurait plus de chance de fonctionner.

Code:

---

Range("B2") = Application.WorksheetFunction.VLookup(Range("A2").Value, Worksheets("Origine").Range("A2:B6"), 2, False)

---

Ne connaissant pas la structure de tes données je ne sais pas si les références sont bonnes évidemment.