XL 2016 Listbox et valeur associée

Bonjour à tous,

Je m'arrache les cheveux avec des listbox d'un userform.

Celle-ci sont alimentées par Rowsource pour les choix déroulants.
Cependant, j'ignore pourquoi, certaines listbox apparaissent avec un choix déjà sélectionné (surligné en bleu). Et ce, de manière aléatoire lors de l'initialisation.

Par ailleurs, lorsque sélectionnés, les choix alimentent une feuille excel.

Lorsque je veux modifier un item, j'ai une macro qui est censée remplir ces listboxs. Cependant, de manière aléatoire, le remplissage ne se fait pas...

Ci-dessous la macro pour remplir les cellules via les sélections des listbox:

Worksheets("bdd_dpt").Range("a" & Lignedpt3).Value = Me.fichedpt_cle_dpt.Value
Worksheets("bdd_dpt").Range("b" & Lignedpt3).Value = Me.fichedpt_nom1.Value
Worksheets("bdd_dpt").Range("c" & Lignedpt3).Value = Me.fichedpt_nom2.Value
Worksheets("bdd_dpt").Range("d" & Lignedpt3).Value = Me.fichedpt_service.Value
Worksheets("bdd_dpt").Range("e" & Lignedpt3).Value = Me.fichedpt_adr1.Value
Worksheets("bdd_dpt").Range("f" & Lignedpt3).Value = Me.fichedpt_adr2.Value
Worksheets("bdd_dpt").Range("g" & Lignedpt3).Value = Me.fichedpt_cp.Value
Worksheets("bdd_dpt").Range("h" & Lignedpt3).Value = Me.fichedpt_ville.Value
Worksheets("bdd_dpt").Range("i" & Lignedpt3).Value = Me.fichedpt_mail.Value
Worksheets("bdd_dpt").Range("j" & Lignedpt3).Value = Me.fiche_dpt_we.Value
Worksheets("bdd_dpt").Range("k" & Lignedpt3).Value = Me.fiche_dpt_abs.Value
Worksheets("bdd_dpt").Range("l" & Lignedpt3).Value = Me.fiche_dpt_hospi.Value
Worksheets("bdd_dpt").Range("m" & Lignedpt3).Value = Me.fiche_dpt_repas.Value
Worksheets("bdd_dpt").Range("n" & Lignedpt3).Value = Me.fiche_dpt_mini.Value
Worksheets("bdd_dpt").Range("o" & Lignedpt3).Value = Me.fiche_dpt_factu.Value

et ci-dessous l'initialisation de l'userform:

Me.fichedpt_cle_dpt.Value = Sheets("selection").Range("p2").Value


With Worksheets("bdd_dpt")
Dim Lignedpt As Long
Lignedpt = Recherche(Me.fichedpt_cle_dpt.Text, 1)
Me.fichedpt_nom1.Value = Range("b" & Lignedpt).Value
Me.fichedpt_nom2.Value = Range("c" & Lignedpt).Value
Me.fichedpt_service.Value = Range("d" & Lignedpt).Value
Me.fichedpt_adr1.Value = Range("e" & Lignedpt).Value
Me.fichedpt_adr2.Value = Range("f" & Lignedpt).Value
Me.fichedpt_cp.Value = Range("g" & Lignedpt).Value
Me.fichedpt_ville.Value = Range("h" & Lignedpt).Value
Me.fichedpt_mail.Value = Range("i" & Lignedpt).Value
Me.fiche_dpt_we.Value = Range("j" & Lignedpt).Value
Me.fiche_dpt_abs.Value = Range("k" & Lignedpt).Value
Me.fiche_dpt_hospi.Value = Range("l" & Lignedpt).Value
Me.fiche_dpt_repas.Value = Range("m" & Lignedpt).Value
Me.fiche_dpt_mini.Value = Range("n" & Lignedpt).Value
End With

je ne comprends pas pourquoi ces listbox agissent de cette manière...

D'avance je vous remercie.