If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=1, Criteria1:=eppoteaux
ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=2, Criteria1:=structureplancher
ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=3, Criteria1:=hsp
ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=4, Criteria1:=plafond
ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=5, Criteria1:=isolation
ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=6, Criteria1:=sousface
ActiveSheet.Range("A1:$X$10000").AutoFilter Field:=7, Criteria1:=plancher
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("H2:U" & lastrow).SpecialCells(xlCellTypeVisible).Copy