Sub Filtre()
Dim PL As Range
Dim PLV As Range
Dim CD As Workbook
Dim OD As Worksheet
Set PL = ActiveSheet.Range("A4:Z1000")
ActiveSheet.Range("$A$4:$z$1000").AutoFilter Field:=1, Criteria1:=ActiveSheet.Range("A2")
Set PLV = PL.SpecialCells(xlCellTypeVisible)
Set CD = Worksbooks("TEST.xlsx")
Set OD = CD.Worksheet(1)
OD.Cells.ClearContents
PLV.Copy OD.Range("A1")
End Sub