Sub Test()
Dim VAR_TAB
Dim Val_Cherchee As Integer
Dim i As Integer
VAR_TAB = Range("A1:B8")
Val_Cherchee = 1003
Debug.Print Application.Match(1003, Application.Index(VAR_TAB, 0, 1), 0)
Debug.Print Application.Match(Val_Cherchee, Application.Index(VAR_TAB, 0, 1), 0)
End Sub