Sub TestRechercheVLookUp()
Dim PlagedeRecherche As Range
Dim SearchedString As String
SearchedString = InputBox('Tapez ce que vous cherchez')
Set PlagedeRecherche = Sheets('TaFeuille').Range('A1:B50')
On Error GoTo Out
MsgBox Application.WorksheetFunction.VLookup(SearchedString, PlagedeRecherche, 2, False)
Exit Sub
Out:
MsgBox SearchedString & ' Par Trouvé dans la Base'
End Sub