Une solution en VBA
Sub test()
table1 = Sheets("Liste").[A1:B5]
lastLine = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastLine
If Application.Match(Sheets("Feuil1").Cells(i, 1), Application.Index(table1, , 1), 0) Then
Sheets("Feuil1").Cells(i, 2) = Application.Index(table1, i, 2)
End If
Next i
End Sub