XL 2016 transfert suivant critère

[Seddiki_adz]

Bonjour
je cherche quelqu’un qui peut m'aider de trouver une méthode(formule) pour
dans la l'onglet base colonne B (jc=9009) équivalent (colonne C) salle A et (colonne D) bin 1
dans la l'onglet résultat si en trouve jc =9009 en colonne D il me donne les valeur des colonne E (salle A) et F (bin 1)
Merci d'avance

 

[Seddiki_adz]

Sub Test()
Application.ScreenUpdating = False
With Sheet2
.[A1].CurrentRegion.Columns("B").AdvancedFilter xlFilterCopy, , .[H1], True
End With
With Sheet1
With .Range("E2:F" & .Cells(Rows.Count, "D").End(xlUp).Row)
.Formula = "=INDEX(BASE!I$1:I$272,MATCH($D2,BASE!$H$1:$H$272,0))"
.Value = .Value
End With
End With
Sheet2.[H1].CurrentRegion.Clear
Application.ScreenUpdating = True
End Sub