Code de Userform ...

Private Sub UserForm_Activate()
Worksheets("BD").Select
    Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    Range("A2").Select
    If ActiveCell.Value = "" Then
        Range("A1").Select
        Worksheets("Consultation").Select
        MsgBox ("Pas de nom à rechercher")
        FRM_recherche.Hide
        Exit Sub
    End If
    LST_nom.Clear
    Do While ActiveCell.Value <> ""
        LST_nom.AddItem (ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value)
        ActiveCell.Offset(1, 0).Select
    Loop
    LST_nom.ListIndex = 0
    Worksheets("Consultation").Select
    
    Worksheets("BD").Select
    If ActiveCell.Value = "Nom" Then
        FRM_consulter.Hide
        Worksheets("Consultation").Select
        Exit Sub
    End If
    LST_nom = ActiveCell.Value
    TXT_telephone.Value = ActiveCell.Offset(0, 8).Value
    TXT_gsm.Value = ActiveCell.Offset(0, 9).Value
    TXT_rue.Value = ActiveCell.Offset(0, 2).Value
    TXT_numero.Value = ActiveCell.Offset(0, 3).Value
    TXT_cp.Value = ActiveCell.Offset(0, 5).Value
    TXT_localite.Value = ActiveCell.Offset(0, 6).Value
    Worksheets("Consultation").Select
End Sub

Private Sub BTN_valider_Click()
Dim Nom_BD As Value
   Dim Choix, Intitule_BD As String
   
   Choix = LST_nom.Value
   Nom_BD = Value(Left(Choix, InStr(Choix, "#") - 1))
   Intitule_BD = Right(Choix, Len(Choix) - InStr(Choix, "#"))
   Worksheets("BD").Select
   Range("A2").Select
   Do Until (ActiveCell.Value = Non_BD) And (ActiveCell.Offset(0, 1).Value = Intitule_BD)
        ActiveCell.Offset(1, 0).Select
   Loop
End Sub