Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e3]) Is Nothing Then Exit Sub
Application.EnableEvents = False: Application.ScreenUpdating = False
Range("a7:h" & Rows.Count).Clear
With Feuil1.Range("a1:h" & Feuil1.UsedRange.Rows.Count)
.AutoFilter Field:=2, Criteria1:=[e3]
.SpecialCells(xlCellTypeVisible).Copy [a7]
.AutoFilter
End With
Application.EnableEvents = True
End Sub