Bonjour,
Dans le gestionnaire de noms, lors du premier filtrage excel a généré le nom Criteres
qui reste égal à P1:P2 et est appliqué une seconde fois.
On le voit en supprimant ce nom et le premier critère ... alors là toutes les données sont bien sorties.
Si tu veux faire un filtre sans critères -qui revient à extraire quelques colonnes-, assure toi d'avoir supprimé le nom Criteres
.
Option Explicit
Sub filtre()
With ActiveSheet
Dim critere, titres As Range
Set critere = .[P1:P2]
Set titres = .[M1:N1]
.Range("A1:K" & .Range("A" & Rows.Count).End(xlUp).Row + 1).AdvancedFilter xlFilterCopy, critere, .Range("M1:N1"), Unique:=True
Set critere = Nothing: Set titres = Nothing
.Names("Criteres").Delete
.Range("A1:K" & .Range("A" & Rows.Count).End(xlUp).Row + 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("R1:V1"), Unique:=False
End With
End Sub