Bonjour,
Je ne comprends pas l'intérêt de copier la feuille pour réaliser les filtres.
Cependant, un début de réponse qui donnera peut-être des idées à autres personnes.
Donc 1 feuille et des filtres sélectifs.
Cdlt.
Option Explicit
Private Sub cmdAFS_Click()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
With Range("A11:P11")
.AutoFilter
.AutoFilter Field:=1, VisibleDropDown:=False
.AutoFilter Field:=2, VisibleDropDown:=False
.AutoFilter Field:=3, VisibleDropDown:=False
.AutoFilter Field:=4, VisibleDropDown:=True
.AutoFilter Field:=5, VisibleDropDown:=True
.AutoFilter Field:=6, VisibleDropDown:=True
.AutoFilter Field:=7, VisibleDropDown:=False
.AutoFilter Field:=8, VisibleDropDown:=False
.AutoFilter Field:=9, VisibleDropDown:=False
.AutoFilter Field:=10, VisibleDropDown:=True
.AutoFilter Field:=11, VisibleDropDown:=True
.AutoFilter Field:=12, VisibleDropDown:=False
.AutoFilter Field:=13, VisibleDropDown:=False
.AutoFilter Field:=14, VisibleDropDown:=False
.AutoFilter Field:=15, VisibleDropDown:=False
.AutoFilter Field:=16, VisibleDropDown:=False
End With
End Sub
Private Sub cmdRAZ_Click()
ActiveSheet.AutoFilterMode = False
End Sub