Equivalent de la fonction rechercheV en Vba

jlp035

XLDnaute Occasionnel
Bonjour au forum,
Afin d' améliorer un programme et le passer totalement en vba pour automatisé la tache, je recherche le bout de programme équivalent à ces deux fonctions RechercheV excel.

Ligne Valeur_1
=SI(AP4="";"";RECHERCHEV(DATE(ANNEE(AUJOURDHUI());1;1);Taux;EQUIV(AP4;Taux!$1:$1;0);FAUX))
Nota : La date aujourdhui sera récupéré dans la textbox "date".

Ligne Valeur_2
=SI(AR4="";"";RECHERCHEV(AS4;Taux;EQUIV(AP4;Taux!$1:$1;0);FAUX))

Merci pour votre aide.
Jean-Juc