Sub Macro7()
'
' Macro7 Macro
Dim bdd As Range
Dim critères As Range
'Définition de la plage base de données située en feuille1
Set bdd = Sheets(1).Range("A1").CurrentRegion
'Définition de la plage de critères située sur la feuille active débutant en A1
With Activesheet
Set critères = .Range("A1").CurrentRegion
End With
'Réalisation du tri et affichage des résultats à partir de A15
bdd.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=critères, CopyToRange:=sheets(2).Range("A15:AK15"), Unique _
:=False
End Sub