filtre automatique sur certaines colonnes seulement

Bonjour,
Je pense que le titre est assez explicite...

J'ai trouvé un morceau de vba sur le net que j'essaie d'adapter, mais apparemment il y a une erreur, cela ne fonctionne pas...

Merci de votre aide!

;-))

Sub FiltreAvecBoutonCache()

Dim MaPlage As Range
Set MaPlage = Worksheets("Applicateur").Range("a1").CurrentRegion

With MaPlage
For a = 1 To MaPlage.Columns.Count
Select Case a
Case 1, 3, 5
.AutoFilter field:=a, visibleDropDown:=True
Case 2, 4, 6
.AutoFilter field:=a, visibleDropDown:=False
End Select
Next
.AutoFilter field:=1, Criteria1:="Toto"
End With
End Sub