Sub RechercheDansTableau()
Dim i As Integer
Derlign = Worksheets("Feuil1").Range("C" & Application.Rows.Count).End(xlUp).Row
Tableau = Worksheets("Feuil2").Range("D1:E53")
For i = 1 To Derlign
If Worksheets("Feuil1").Cells(i, 3).Value = Tableau(i, 1) Then
Worksheets("Feuil1").Cells(i, 4).Value = Tableau(i, 2)
End If
Next
End Sub