recherchev en vba entre différents onglets

Sub Correct_Example1()

    Const blnRANGE_LOOKUP As Boolean = False
    Const lngCOL_INDEX_NUM As Long = 2
    Dim varResult As Variant
    Dim rngLookUpValue As Range
    Dim rngTableArray As Range
    Dim rngResult As Range
    varResult = Range("B1").Address
    
    With Sheets("Feuil1")

        Set rngLookUpValue = Sheets("Feuil1").Range("a1")
        Set rngTableArray = Sheets("Feuil2").Range("a1:F22")
    End With
    
   Range(varResult).Value = Application.WorksheetFunction.VLookup(rngLookUpValue.Value2, _
      rngTableArray, lngCOL_INDEX_NUM, blnRANGE_LOOKUP)

End Sub