Sub comp()
Dim Cel As Range
Dim myRange As Range
Set myRange = Range("B3:B14")
For Each Cel In myRange
Dim i&
For i = 19 To 3 Step -1
If Cel.Value = Sheets("Feuil1").Range("A" & i).Value Then Cel.Offset(0, 1).Value = Sheets("Feuil1").Range("B" & i).Value
Next i
Next Cel
End Sub