Tri sous excel avec un bouton

Bonjour,

Voilà, j’utilise un fichier Excel ou j'ai créé un bouton qui masque et démasque des colonnes précises.
Le problème que j'ai, est le suivant :

Quand j'active ce bouton, si je veux par la suite utiliser les filtres automatiques, il faut que je déverrouille la protection de la feuille manuellement.
Et cela ne m'arrange pas, car je ne souhaite pas communiquer le mot de passe, car les personnes qui utilisent ce fichier n'y connaissent rien et risque de mettre un sacré bazar.

Je bricole un peu mais je ne suis pas un expert en macro loin de là, donc que faut-il que je rajoute pour pouvoir faire des filtre automatique a cette macro :

Private Sub CommandButton1_Click()

End Sub

Sub masque()
liste = Array("a", "d", "e", "g", "h", "i", "j", "k", "q", "r", "u")
For n = 0 To UBound(liste)
ActiveSheet.Unprotect Password:="odin"
If Columns(liste(n)).Hidden = True Then
Columns(liste(n)).Hidden = False
Else
Columns(liste(n)).Hidden = True
End If
Next n
ActiveSheet.Protect Password:="odin"
End Sub


Merci d’avance si une bonne âme à une solution, car je cherche déjà depuis quelques temps sans résultas.