Récuperation liste de choix en fonction valeur d'une cellule

Bonjour,

toujours sur mon tableau de choix de rivet et dernière ligne droite.

Le choix de mon rivet est terminé et s'inscrit dans la cellule B10 de ma feuil2.

Mon fichier excel est couplé avec la base de données de mon ERP, je récupere ces donnéees dans ma feuil3.

Le but est de me proposer les differentes ligne portant la meme ref que ma case B10.

J'ai testé du VBA pour me filtrer ma base recupérer les ligne et les afficher dans ma feuil2 mais sans succes un truc cloche dans ma formule VBA.

Un petit coup de main ne serait pas de refus, d'ici la je continue de mon coté a chercher.

Dim f, ln, lgn

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$2" _

Or Target.Address = "$B$7" Then

Set f = Sheets("Feuil3")

For ln = 2 To f.Range("A" & Rows.Count).End(xlUp).Row

If f.Range("B" & ln) = Me.Range("$B$10") Then 'tri pour selectionner la ref du rivet

f.Range("A" & ln & ",B" & ln & ",H" & ln & ",D" & ln).Copy 'copie des composants

lgn = Range("A" & Rows.Count).End(xlUp)(2).Row

Range("A" & lgn).PasteSpecial xlPasteValues 'coller les composants dans la page2 a partir de la cellule A dispo

End If

Next ln

End If

End Sub