Récupérer deux lignes identiques

Bonjour tous le monde,

je bloque sur une problématique q je n'arrive pas à résoudre

exemple j'ai deux lignes parmi plusieurs lignes que les informations sont quasiment identiques.

A B C D

tata AB TAR 1

tata AB TAR 2

tata AB TAR 3

vous constatez que la colonne D est al seule qui différence les trois lignes.

Maintenant, j'ai des menus deroulants ou je récupère ces lignes sauf que je récupère toujours la première lignes et pas les autres sachant que dans mon menu par exemple j'ai trois tata comment faire change quand je selectionne le deuxieme tata ensuite le troisieme . Merci de m'aider

Bonjour

Avec une zone de liste (Boîte à outils Contrôle)

Cordialement

Merci bien c'est vraiment ce que je cherche à faire mais avec un formulaire je fais comme cela

je cherche mes lignes par comboBoxModele mais lorsque j'ai deux lignes qui contiennent le mmême infos au niveau de Modele je ne récupère jamais la deuxième ligne

Private Sub ComboBoxModele_Change()
Dim ligne As Range
Dim derlign As Long
If ok = True Then Exit Sub
  With Sheets("Pile ILD")
    derlign = .Range("E" & .Rows.Count).End(xlUp).Row
    Set ligne = .Range("A2:F" & derlign).Find(ComboBoxModele.Value)
    If Not ligne Is Nothing Then
    ok = True
    ComboBoxConstructeurs.Value = .Range("C" & ligne.Row)
    ComboBoxModele.Value = .Range("A" & ligne.Row)
    ComboBoxTechnologie.Value = .Range("D" & ligne.Row)
    ComboBoxTypeILD.Value = .Range("B" & ligne.Row)
    Else
    End If
  End With
  ok = False
End Sub

Bonjour, Personne pour m'aider !!!