VBA Problème récupération données dans BD (1 ligne sur 2)

bonjour,

J'ai un problème dans VBA que je ne sais résoudre....

Mon utilisateur choisi dans une base déroulante son nom puis valide. Jusqu'ici tout va bien.

Au moment où il valide, je veux récupérer dans la base de donnée "Liste DO", ses informations (telephone, matricule etc....), pour les insérer dans des cellules.

Le hic, c'est que pour un utilisateur sur deux, mon code n'arrive pas à récupérer les données.

Avez vous une idée du pourquoi du comment ?

Merci d'avance pour votre aide.

'---------------On va récupérer les informations du donneur d'ordre dans la base de donnée--------------
    'nombre de lignes du tableau
    NLign = Sheets("Liste DO").Range("C65536").End(xlUp).Row
    
' le nom sélectionner par l'utilisateur
    Nom = ListBox1

    Dim recherche As Integer
    Dim matricule As String
    Dim Prenom As String
    Dim TelF As String
    Dim TelP As String
    Dim Mail As String
    Dim Fonction As String
    Dim Secteur As String
    
    For recherche = 1 To NLign
'si le nom correspond au nom selectionné par l'utilisateur
        If Sheets("Liste DO").Cells(recherche, 3) = Nom Then
 'alors je récupere les autres infos qui sont dans les colonnes suivantes
            Prenom = Sheets("Liste DO").Cells(recherche, 4)
            Fonction = Sheets("Liste DO").Cells(recherche, 5)
            TelF = Sheets("Liste DO").Cells(recherche, 6)
            TelP = Sheets("Liste DO").Cells(recherche, 7)
            Mail = Sheets("Liste DO").Cells(recherche, 8)
            Secteur = Sheets("Liste DO").Cells(recherche, 10)
            Exit For
        Else
            recherche = recherche + 1
        End If
    Next