Plusieurs Recherchev en vba

Bonjour,

Je cherche à traduire les formules de "Recherchev" en vba.

(avec boucle si possible ...)

En D4, recherche dans BDAGENT, l'adresse mail dans la 6ème colonne (BDAGENT étant une plage nommée)

=SI(B4="";0;SI(ESTNA(RECHERCHEV(CNUM(DROITE(B4;5));BDAGENT;6;FAUX));"HorsPM3";RECHERCHEV(CNUM(DROITE(B4;5));BDAGENT;6;FAUX)))

En F4, recherche dans BDAGENT, l'agence dans la 4ème colonne (BDAGENT étant une plage nommée)

=SI(B4="";0;SI(ESTNA(RECHERCHEV(CNUM(DROITE(B4;5));BDAGENT;4;FAUX));"HorsPM3";RECHERCHEV(CNUM(DROITE(B4;5));BDAGENT;4;FAUX)))

En H4, recherche dans BDAGENT, TEXTE dans la 3ème colonne (BDAGENT étant une plage nommée)

=SI(G4<>"";RECHERCHEV($G4;'Tableau d''activité'!$B$1:$L$18;3;FAUX))

En H4, recherche dans BDAGENT, TEXTE dans la 2ème colonne (BDAGENT étant une plage nommée)
=SI(G4="";0;RECHERCHEV($G4;'Tableau d''activité'!$B$1:$L$18;2;FAUX))

EXCEL2010

Merci d'avance,
PYGOS69