Dim tablo
tablo = Array(25, 124, 963, 745)
MsgBox Not IsError(Application.Match(745, tablo, 0)) 'renvoi vrai
MsgBox Not IsError(Application.Match("vasypoupou", tablo, 0)) 'renvoi faux
MsgBox Application.Match(124, tablo, 0) 'renvoi 2 (2ème index du tablo)