XL 2016 Copie de donné dans une autre feuille

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