selection d'une cellule dont la valeur est inscrite dans une listbox

Sub ListBox1_Click()
    Dim Var
    Dim NumLg
    On Error Resume Next
    Dim c As Range
    'Var = InputBox(Prompt:="Taper la valeur recherchée. ")
    Var = Me.ListBox1
    Set c = Sheets("BD").Cells.Find(What:=(Var), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    If Not c Is Nothing Then
        With Application
            .EnableEvents = False
            .Goto c
            .EnableEvents = True
        End With
    End If
 
    '///////////////////////////////// comprends pas l'utilité de ceci:
    With Application.Cells
        NumLg = .Row
    End With
    '/////////////////////////////////
    'ActiveCell.EntireRow.Select
    Cells.Offset(0, 1).Select
    Unload Me
End Sub

Sub ListBox1_Click()
test = True
Columns(1).Find(Me.ListBox1.Value, , xlFormulas, xlWhole).Select
test = False
Unload Me
End Sub

If test = False Then UserForm3.Show