bonjour atlaslion, salut saboh12617,
c'est un filtre avancé que vous voulez faire ... (avec pour le moment 0 matches)
Sub Avance()
Sheets("BD").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Filtre").Range("K7:P8"), CopyToRange:=Sheets("Filtre").Range("A1:I1")
End Sub