macro mode multi utilisateur

[ychc]

Bonjour à tous,

Voici une macro qui me permet d'annuler automatiquement les filtres sur une feuille.
Celle-ci fonctionne parfaitement.
SAUF, que quand je partage mon fichier pour une modification multi utilisateur, celle-ci
me provoque une erreur.
Voici le code:

Public Sub annulfiltres()
With Worksheets("relevé")
ActiveSheet.Unprotect "toto"
If .FilterMode = True Then .ShowAllData
ActiveSheet.Protect "toto", True, True, True, UserInterfaceOnly:=True, AllowFiltering:=True
End With
End Sub

Et voici l'erreur affichée:


Si quelqu'un sait ce que je peux faire pour que cela fonctionne en mode partagé.

Merci à vous.