yop, en voulant resoudre mon probleme ( j'y suis tjs po arriver 
 ) je crois avoir resolut le tien, je pense a une macro en vba avec un tant que :
 
public sub recherhce ()
 
Dim I as Integer
Dim J as integer
 
 
Sheets("Feuill1" ).Activate
 
While cells(I,1)<>""
 
if cells(i,1)= peugeot Then' peugeot povant être remplacer !  alors tu met la valeur que tu souhaite dans une cellules spéciale comme cells(1,3) ....
 
Sheets("Feuill2" ).cells( j,1) =cells(i,2)
J=J+1
 
end if
 
Wend