Probleme avec Range.find

Sub LitCSV()        'Lit les votes dans le fichier CSV
Dim i As Integer, pos As Integer, finlg As Integer
Dim vote As String, numcarte As String
Dim adr As Range
Dim wsh As Worksheet

    Set wsh = ThisWorkbook.Sheets("Votes")
    finlg = wsh.Range("A4").Value
    
    Application.ScreenUpdating = False
    'Workbooks.Open ("D:\monCSV.txt")
    
    Open "D:\monCSV.txt" For Input As #1  'ouvre en lecture seule
    
    i = 0
    Do While Not EOF(1)             ' Effectue la boucle jusqu'à la fin du fichier
        i = i + 1
        Line Input #1, vote           ' Met la ligne lue dans la variable "vote"
    MsgBox vote
            'sépare le numero de carte du vote
        pos = InStr(1, vote, ",", 1)
        numcarte = Left(vote, pos - 1) 'supprime le point virgule et prend ce qui est à gauche
    MsgBox numcarte
        vote = Mid(vote, pos + 1)      'renvoie les derniers caractères à "vote"
    MsgBox vote
            'cherche le NumeroCarte dans feuille "Votes"
        Set adr = wsh.Range("B5:B" & finlg + 5).Find(numcarte, "B5", xlValues, xlWhole, xlByRows, xlNext)
        If Not adr Is Nothing Then
    MsgBox adr.Column
            wsh.Range("Q" & adr.Rows) = vote
            Set adr = Nothing
        End If
    Loop
    
    i = i - 1
    Close #1

    Workbooks("monCSV.txt").Close
    Application.ScreenUpdating = True
End Sub