XL 2010 Communication entre USF

Bonjour,

Ci-joint, l'image de deux USF (à un instant donné).
Un bouton ouvre le premier (BdDlg3). Dans celui-ci, je choisis dans la liste "Villas". La D1 par ex. me rend 2 noms (souvent, il n'y en a qu'un). Je dois en sélectionner un et transférer les éléments dans les trois TextBox du second USF (BdDlg2)
Le premier élément de la liste est toujours indiqué sélectionné
S'il n'y a qu'un seul nom il est sélectionné dès le choix de la villa. S'il y a deux noms, comme ici, le premier élément de chaque ListBox est sélectionné (ici premier, en bleu)
Le clic sur le bouton modifié ouvre le second USF qui, normalement doit être déjà chargé (les quelques lignes font partie du code de BdDlg2).

Le problème : si par ex. je clique "REGAIRAZ", j'ai tout bon dans le second USF. Idem, si je clique sur un nom unique déjà sélectionné
En revanche, si je chosis, comme ici "PEREZ" sans recliquer dessus, j'ai le résultat indiqué sur la second image.

Quelqu'un pourrait-il me dire où je fais une erreur...Merci.

Cordialement

</>
Sub ChargeValeursAmod()
Dim Dep As Range
If VientDe1 = True Then ' Si depuis BdDlg1
With BdDlg1
Nom.Value = .ListeNoms.Value
Prénom.Value = .Prénom.Value
Villa.Value = .Villa.Value
End With
Else ' Si depuis BdDlg3
With BdDlg3
Villa.Value = .ListeVillas.Value
Nom.Value = .ListeNoms.Value
Prénom.Value = .ListePrénoms.Value
End With
End If
End Sub
</>