Code vba : recherche en H et V en même temps

Option Explicit
'--------------------------
Sub informer()
Dim Chemin As String, Fich As String
Dim Derlig As Byte, Lig As Byte, Ville As String, Article As String

    Application.ScreenUpdating = False
    Chemin = ThisWorkbook.Path
    Workbooks.Open (Chemin & "\patri.xlsx")
    
    With ThisWorkbook.Sheets(1)
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        For Lig = 3 To Derlig
            Ville = .Cells(Lig, "A")
            Article = .Cells(Lig, "B")
            .Cells(Lig, "D") = ChercherHV(Ville, Article)
        Next
        .Activate
    End With
        Workbooks("patri.xlsx").Close
 End Sub
 '------------
Function ChercherHV(Cite, Arti) As String
Dim Col As Byte, Lig As Byte
    With ActiveWorkbook.Sheets(1)
        On Error GoTo inconnu
        Col = .Rows(2).Find(Cite, .Range("B2"), xlValues).Column
        Lig = .Columns("B").Find(Arti, .Range("B3"), xlValues).Row
            ChercherHV = .Cells(Lig, Col).Value
    End With
    Exit Function
inconnu:
 ChercherHV = "Article ou Ville inconnu""
End Function