séparer en 2 string dans TextBox

[herve62]

Bonsoir
Quelle serait le code facile ( ou léger) , pour séparer :
- Affichage NOM Prenom dans une box suite à info de 2 cellules issues d'une feuille (fait dans l'exemple)
- Raffraichir cette Box juste avec le nom ( suite au choix) et le Prénom dans l'autre Box existante
J'ai déjà une solution mais "lourde" pour si peu , qui cherche si dans la liste il y a 2 PRENOM ou + pour le même nom et refait une liste choix dans Prénom
Donc je voudrai éviter tout ce code , voilà ce que j'ai commencé :

With Worksheets("ETAT")
 Lig = .Range("a1000").End(xlUp).Row
 For N = 4 To Lig
  If .Cells(N, 12).Value = "" Then
  Npr = .Cells(N, 1).Value & " " & .Cells(N, 2).Value
  Nom.AddItem Npr ' BOX RESERVE NORMALEMENT JUSTE au NOm
                ' Là c'est juste pour le choix si 2 ou + identiques
 Next N
End With

Ensuite après le choix dans "Nom.change" ne remettre que le nom , le prénom et le reste iront dans leur Box
ATTENTION : il faudra garder la BONNE ligne du NOM PRENOM pour bien afficher le reste des infos
Respective
Merci