Par macro, faire le tri dans un tableau

Bonjour via55,

Merci pour cette solution. Et le temps que vous avez passez dessus.
Je vais l'appliquer sur le programme principale.
Merci à vous. Bon week-end

Bonjour Philou10120
La question est résolu parce que ce que vous me proposez me convient.
Par contre, je n'arrive pas à l'adapter à mon programme.
Il bloque au niveau du premier filtre.
Pouvez vous m'aider ?
Voici à quoi cela ressemble.

Sub PrimairePropositionIdentitée()
'accès et enlever protection page patient pour copier dans page travail
Sheets("Patients").Select
ActiveSheet.Unprotect
Range("A1:K1500").Select
Selection.Copy
Sheets("Tableau").Select
Range("A4").Select
ActiveSheet.Paste
'protéger page patient
Sheets("Patients").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'nettoyer page proposition
Sheets("Identitépotentielle").Select
Range("Proposition").Select
Selection.ClearContents
Sheets("Tableau").Select
Range("Base_tableau").Select
'Filtre
Range("Base_tableau").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("Criteres"), CopyToRange:=Range("extraction"), Unique:=False
Application.Goto Reference:="extraction"
Selection.Copy
Sheets("Identitépotentielle").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6").Select

Dans l'attente de votre réponse, je vous adresse mes meilleures salutations et mes remerciement