Pb dans une liste avec nom en double

Option Explicit

Dim LigneAgent As Integer
Dim PlageAgent As String

Private Sub UserForm_Initialize()

LigneAgent = Sheets('BDD').Range('A501').End(xlUp).Row
PlageAgent = Sheets('BDD').Range('A3:B' & LigneAgent).Address

List_Nom_Agt.ColumnCount = 2
List_Nom_Agt.RowSource = 'BDD!' & PlageAgent
List_Nom_Agt.ColumnWidths = '80;80'
End Sub
' *************************
Private Sub List_Nom_Agt_Click()
'AFFICHE LES INFOS DANS LES TEXTBOX CORRESPONDANT
Dim PlageForm As Range
Dim Cell As Range

Set PlageForm = Sheets('BDD').Range('A2:F' & LigneAgent)
For Each Cell In PlageForm
If Cell.Value = List_Nom_Agt.Value Then
DS_A_01 = Cell.Offset(0, 0).Value
DS_A_02 = Cell.Offset(0, 1).Value
End If
Next Cell

' AFFICHE LES RESULTATS DANS LES CELLULES DU FORMULAIRE
With Sheets('FORMULAIRE_FORMATION')
.Range('B3') = DS_A_01
.Range('J3') = DS_A_02
End With
End Sub
' ***************************