Combobox trié et sans doublon

Bonjour, les questions sur les tris ont sûrement été abordé plusieurs fois, mais là je sèche.

J'ai un fichier Excel (lien https://www.cjoint.com/c/EEEkU50aG75, aucune données n'est confidentielle) avec un userform. Cet userform, avec une combobox, doit rechercher tous les salarié présents (exclus ceux qui sont partis).

Après de nombreuses tentatives pour éliminer les doublons de la liste, j'ai eu un début de piste mais après, ça coince. En fait les textbox affichent les renseignements trouvés à partir du nom sélectionné.
Et là ça coince c'est qu'à partir de la ligne Prenom.value du code suivant Excel m'indique une erreur

Private Sub Nom_Change()
Dim cell As Range

Dim cherch As String, derlign As Long

derlign = Feuil9.Range("B6500").End(xlUp).Row

cherch = Nom

Set cell = Sheets("Registre du personnel").Range("B3:B" & derlign).Find(cherch, lookAt:=xlWhole)
   
    Prenom.Value = cell.Offset(0, 1)
    Adresse.Value = cell.Offset(0, 3)
    CP.Value = cell.Offset(0, 4)
    Ville.Value = cell.Offset(0, 5)
    Fonction.Value = cell.Offset(0, 6)
    

End Sub

Merci à ceux qui pourront me venir en aide