Copier les données d'une feuille vers d'autres feuilles

Sub test()
Dim sh As Worksheet, i As Long, myrecher As Range, v As Integer, obj As Object, p As Integer

'je demande premièrement à l'utilisateur d'entrer une valeur v
With Worksheets("Feuil3").Range("B1:B100") 
v = InputBox("saisir le numéro de la commande")
Set obj = Columns("B").Find(v, , , xlWhole, , xlPrevious)
If Not obj Is Nothing Then
p = obj.Row
'je voudrais récupérer la valeur de la cellule A&p
MyRange = Range("A" & p).Value
End If
End With
'je vais chercher dans les autres feuilles  de mon classeur la valeur Myrange dans la cellule 'A1 de chaque feuille
With ThisWorkbook
For Each sh In .Worksheets
With sh
Set myrecher = Range("A1").Find(MyRange)
If Not myrecher Is Nothing Then
sh.Select
i = Range("A5").End(xlDown).Row
'je voudrais copier la plage  A5:E" & i de la feuille 'sh' dans laquelle j'ai trouvé ma variable "MyRange" puis la coller dans la plage  H1:L1 de la feuille 1
Range("A5:E" & i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("feuil1").Select
Range("H1:L1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End If
End With
'End If
Next
End With
End Sub