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

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