Macro Rechercher Transpose

Bonjour
J'ai un tableau avec 10 colonnes et plusieurs lignes. j'aimerais rentrer un mot dans un combobox (ActiveSheet) pour rechercher le mot sur la colonne B d'une autre feuille (adresse). Si le mot est trouvé, copier toute la ligne et copier résultat en colonnes dans ma feuille active.
j'ai besoin d'un coup de pouce.
Merci

Bonjour,
A main levée

Code:

---

1 2 3 4 5

dim ch as long ch = sheets("adresse").range("B2:B" & der_ligne).find(sheets("feuil1").combobox1).row'la feille de ton combo sheets("adresse").cells(ch, der_colonne).copy sheets("feuil1").range("ta_cellule").select'la feuillle de ton combo sheets("adresse").cells(ch, der_colonne).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= False, Transpose:=True

---