Simplification VBA

Bonjour à tous,

je souhaiterais savoir si mon code peut être simplifié.

Le voici :

ActiveSheet.Range("$A$5:$AK$4991").AutoFilter Field:=1

ActiveSheet.Range("$A$5:$AK$4991").AutoFilter Field:=2

ActiveSheet.Range("$A$5:$AK$4991").AutoFilter Field:=3

ActiveSheet.Range("$A$5:$AK$4991").AutoFilter Field:=4

....(jusqu'à la colonne 37)

ActiveSheet.Range("$A$5:$AK$4991").AutoFilter Field:=37

Vous en remerciant à l'avance,

Cordialement,

jéjé

Bonjour,

Quel est l'objectif de la macro ?

A première vue, une possibilité pour simplifier :

Sub Test()

Dim idx As Integer

For idx = 1 To 37
    Range("$A$5:$AK$4991").AutoFilter Field:=idx
Next idx

End Sub

Bonjour,

merci pour ton aide. Le but est de supprimer les filtres du classeur.

Cordialement,

Merci d'avoir validé,

Mais il y a plus simple pour retirer les filtres :

ActiveSheet.ShowAllData