Recherche et ajouter résultat dans cellule

Bonjour,

Bon alors j'ai 2 feuilles, sur feuil1 j'ai 10 colonnes avec mes données.
Dans la feuille 2 j'ai dix combobox qui correspondent aux 10 colonnes.
J'ai rempli les combobox grace a l'aide de se forum merci beaucoup!

Maintenant je voudrai quand on clique sur un element dans une combobox ici la 1 les combobox 2 et 3 se remplissent automatiquement et que les elements associés s'affichent dans les cellules du tableau en dessous des combobox correspondant.

Ce n'est pas tres clair donc je met un exemple!


J'ai récupéré mon code d'une présedante bd que j'ai modifier mais cela me marque incompatibilité de type!

Private Sub ComboBox1_Change()
CODE_AE = ComboBox1.Value

Columns(1).Find(CODE_AE, , , xlWhole, , Previous).Select
CODE_FAB = Selection.Offset(0, 1).Value
Désignation = Selection.Offset(0, 2).Value
Spécification = Selection.Offset(0, 3).Value
Outil = Selection.Offset(0, 4).Value
Fabricant = Selection.Offset(0, 5).Value
Référence = Selection.Offset(0, 6).Value
Matrice = Selection.Offset(0, 7).Value
Spécifications_outillage = Selection.Offset(0, 8).Value
Emplacement = Selection.Offset(0, 9).Value

ComboBox2.Text = "" & CODE_FAB
ComboBox3.Text = "" & Désignation
ComboBox4.Text = "" & Spécification
Feuil2!E9.Text = "" & Outil
Feuil2!F9.Text = "" & Fabricant
Feuil2!G9.Text = "" & Référence
Feuil2!H9.Text = "" & Matrice
Feuil2!I9.Text = "" & Spécifications_outillage
Feuil2!J9.Text = "" & Emplacement

End Sub

Merci d'aance!!
Roseverte