Bonsoir
Voici la macro qui devrait te convenir
Dim reponse As Integer, I as Integer, lign As Integer
Reponse = InputBox('numéro de dossier ?')
ForI = 1 to WorkSheets('Feuil2').Range('A65536')End(XlUp)Row
If WorkSheets('Feuil2').Range('A' & I).Value = Reponse Then lign = I
Next I
WorkSheets('Feuil2').Rows(lign).Copy
WorkSheets('Feuil1').Rows('100:100').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Bon courage