XL 2016 Amélioration du temps d'exécution d'une recherche à plusieurs critères

[asta29]

Bonjour à tous,

Je tente en vain de réussir en VBA le résultat indiqué ci-dessous:

Avec cette formule en B2 de la feuil2 je parviens au résultat attendu,: {=INDEX(Feuil1!C2:C6;EQUIV(A2&"ok";Feuil1!A2:A6&Feuil1!B2:B6;0))}
Cependant ce fichier contient environ 4000 lignes et la répétition des formules ralentissent énormément le calcul.

Feuil2: Feuil 1:

Je cherche à optimiser ces calculs en VBA mais je n'y parviens pas.

Merci d'avance pour votre aide.
Ci-joint un fichier d'exemple.

Asta29

 

[asta29]

Bonjour Reblochon,
Oui je l'ai vu et bien comprise, j'ai appliqué du coup celle méthode qui contient moins d'étape et qui est en effet beaucoup plus simple.
Encore merci.