Bonsoir DoudouNours,
Oui c'est possible, il suffit que tu spécifies dans quelle feuille se trouve ton tableau de référence dans ton code en avant de "Range"...
Par exemple, si ton tableau est placé en B1 dans la feuille A, tu écrirais ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
If Target.Address <> "$B$2" Then Exit Sub
Set Cellule = Sheets("A").Range("B1:B35000").Find(Sheets("Menu").Range("B2"), lookat:=xlWhole)
If Not Cellule Is Nothing Then Sheets("A").Range("D" & Cellule.Row).Copy Sheets("Menu").Range("D2")
End Sub
A+