Vba Recherche valeur et copie dans cellule adjacente

Bonjour,

Je voudrais trouvée une valeur approchante (inf) dans un tableau et copier une autre valeur dans la cellule adjacente à la cellule trouvée...

DONNEES:
Feuil2 cellule A1:= Valeur recherchée.*=MAINTENANT
Feuil2 cellule A2:= Valeur à copier dans colonne E de la Feuil1(Dans ce cas 00:30:00).*
Dans la colonne B:= Plage de valeur (horaire ex: 00:00 à 24:00 par incrémentation d'1h).*
Dans la colonne E:= La Valeur est copier en face de la valeur trouvée de la colonne B.*

CODE Vba:
Rechercher dans colonne B la valeur imédiatement inférieure à "maintenant" et copier la valeur de feuille2 cellule A2 dans colonne E, en face de la valeur trouvée dans la colonne B.

Je suis débutant et je ne trouve pas de solution. Merci de votre aide