Sub Test_A()
Dim selection As Range
Set selection = Range("$A$1:$U$8")
selection.AutoFilter
selection.AutoFilter Field:=2, Criteria1:="="
selection.AutoFilter Field:=21, Criteria1:=Array("+21 ans", "-21 ans"), Operator:=xlFilterValues
selection.SpecialCells(xlVisible).Select
selection.Copy Sheets("Sabbatiques").Range("a1")
End Sub
Sub Test_B()
ActiveSheet.Range("$A$1:$U$8").AutoFilter Field:=21, Criteria1:=Array("+21 ans", "-21 ans"), Operator:=xlFilterValues
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheets("Sabbatiques").Range("a1")
End Sub