Prb avec filtre élaboré en mode protection

G un gros pb avec mon application!
Lorsque je protège ma feuille, la protection me bloque mon filtre.
Est ce que quelqu'un peut m'aider?

J'ai essayé ça

Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
End Sub

Ca marche très bien sur l'exemple que j'ai envoyé mais dans mon application j'yarrive pas!!!

J'ai l'impression qu'il reconnai pas le nom que je lui donne. Et l'application est trop volumineuse. G tout essayé!!!!!
Que faire?