Macro + protection + filtre automatique

Bonjour,

A la fin de l'exécution de ma macro, je protège une feuille.

Après l'exécution de la macro, les filtres automatiques sont toujours en place mais je ne peux pas les utiliser.

Si je déprotège et reprotège manuellement et que je coche "utiliser le filtre automatique", tout va bien

Mais à chaque lancement de macro, l'exécution de

ActiveSheet.Protect Password:="toto"

ne prend pas en compte l'autorisation d'utiliser les filtres

Y A T IL UNE PARADE?

merci

Bonjour,

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
End Sub

Cordialement.

merci beaucoup