Si tes 4 valeurs se trouvent en a1 b1 c1 d1
Il faut également que ta recherche selectionne une des cellules de la ligne concernée
dim valeur(3)
ligne=activecell.row
colonne=1
a=0
do until sheets("feuil1").cells(ligne,colonne)=""
valeur(a)=sheets("feuil1").cells(ligne,colonne).value
a=a+1
colonne=colonne+1
loop
sheets("feuil2").range("a1:d1").value=valeur