Sub essai()
Dim tbl(1 To 2, 1 To 10)
tbl(1, 1) = "aaa"
tbl(1, 2) = "bbb"
tbl(1, 3) = "ccc"
tbl(2, 1) = 11
tbl(2, 2) = 22
tbl(2, 3) = 33
Valcherchée = "ccc"
MsgBox RechercheVTab(tbl, "ccc")
End Sub
Function RechercheVTab(tbl, Valcherchée)
RechercheVTab = tbl(2, Application.Match(Valcherchée, Application.Index(tbl, 1), 0))
End Function