rep = InputBox("Que Recherchons nous ?")
Columns("E:E").Select
Cells.Find(What:=rep, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Sheets("Ta_Feuil").Select
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=rep
ActiveCell.Offset(0, -1).Select
Selection.Copy