Private Sub CommandButton1_Click()
Dim pf As Range, A_COPIER As Range
Sheets("feuil1").Range("AV1" And "Z").AutoFilter Field:=3, Criteria1:="=AVANCE_24/7", Operator:=xlOr, Criteria2:="=AVANCE_6/7", Operator:=xlOr, Criteria3:="=PERSONNALISE_24/7", Operator:=xlOr, Criteria4:="=PERSONNALISE_6/7", Operator:=xlOr, Criteria5:="=UTILISATEUR_24/7", Operator:=xlOr, Criteria6:="=UTILISATEUR_6/7", Operator:=xlOr, Criteria7:="=M2MA", Operator:=xlOr, Criteria8:="=SI MTO", Operator:=xlOr, Criteria9:="=SUP AV 6/7", Operator:=xlOr, Criteria10:="=PERSO 7/7"
Set pf = Range("_FilterDataBase")
Set A_COPIER = pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12)
A_COPIER.Copy Sheets("feuil2").[A65536].End(xlUp)(2)
Sheets("feuil1").ShowAllData
End Sub