Sub Test()
Dim Plage As Range
Dim PlgX As Range
Dim PlgY As Range
Dim Cel As Range
Dim CelX As Range
Dim CelY As Range
Set Plage = Worksheets("Feuil2").Range("A2:A5")
Set PlgX = Worksheets("Feuil1").Range("B1:B4")
Set PlgY = Worksheets("Feuil1").Range("C5:F5")
For Each Cel In Plage
Set CelX = PlgX.Find(Cel.Offset(, 1).Value, , xlValues, xlWhole)
Set CelY = PlgY.Find(Cel.Offset(, 2).Value, , xlValues, xlWhole)
If Not CelX Is Nothing And Not CelY Is Nothing Then
Worksheets("Feuil1").Cells(CelX.Row, CelY.Column).Value = Cel.Value
End If
Next Cel
End Sub