Autres Simplifier une macro

[chilo27]

Bonjour le Forum

J'ai fait cette macro pour trier une base de données de plusieurs colonnes pour ne prendre que 4
Le but est de lister les adhérents de 65 ans et plus

Est il donc possible de simplifier cette macro

En remerciant


Application.Goto Reference:="resultat"
ActiveWindow.SmallScroll Down:=-6
Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$B$1:$F$156").AutoFilter Field:=4, Criteria1:=Array( _
"65 ans", "66 ans", "67 ans", "68 ans", "70 ans", "71 ans", "72 ans", "73 ans", "74 ans", "75 ans", "76 ans", "77 ans", "78 ans", "79 ans", _
"80 ans", "81 ans", "82 ans", "83 ans", "84 ans", "85 ans", "86 ans", "87 ans", "88 ans", "89 ans", _
"90 ans", "91 ans", "92 ans", "93 ans", "94 ans", "95 ans", "96 ans", "97 ans", "98 ans", "99 ans"), Operator:=xlFilterValues
Range("B2:E152").Select
Selection.Copy
Sheets("résultat").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("BD").Select
Application.CutCopyMode = False
Selection.AutoFilter

 

[fanch55]

Bonsoir,
A froid sans classeur, ceci devrait suffire :

    ActiveSheet.Range("$B$1:$F$156").AutoFilter Field:=4, Criteria1:=">64 ans", Operator:=xlAnd