Autoriser Filtre Auto sur feuille protegee

Bonjour le Forum

Sur Excell 97 ou 2000, je souhaite autoriser l'utilisateur a se servir du filtre automatique cree par macro
Merci de vos conseils

ci-dessous le bout de code

Sub filtre()
Application.Sheets("Remarques").Protect
Application.Sheets("Données").Select
Sheets("Données").Unprotect Password:="toto"
Columns("A").Locked = False
Range("A3:A1000").Select
Selection.AutoFilter
Sheets("Données").Protect Password:="toto"

Range("A3").Select
End Sub

La fleche du filtre est visible mais inactive