Listebox et homonymes

salut le forum
j'ai fait un 1 listbox avec 4 textbox lorsque je click sur un nom du listbox il m'affiche les renseignements sur les textbox mais je me suis rendu compte que lorsque je click sur certains clients de la liste qui on des noms identique c a dire des homonymes les textbox reste vide il n'arrive pas a les afficher j'ai pas pu elucder ce mystere aider svp
voila le code:
Private Sub ListBox1_Click()
Dim Plage As Range
Dim Cell As Range
Set Plage = sheets("Liste").Range("I2:N" & DerLigne)
For Each Cell In Plage
If Cell.Value = ListBox1.ListIndex + 1 Then
TextBox2 = Cell.Offset(0, 2).Value
TextBox4 = Cell.Offset(0, 3).Value
TextBox5 = Cell.Offset(0, 4).Value
TextBox6 = Cell.Offset(0, 5).Value
End If
Next Cell
End Sub