Erreur 1004 en VBA définie par l'application ou par l'objet

Bonjour,

J'ai créé la macro pour faire un tri :

Sub Dat()
'
' Dat Macro
'

'
Range("A1:Z500").Select
ActiveWorkbook.Worksheets("Pro° - Mut° - Miss° - Chgt F°").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Pro° - Mut° - Miss° - Chgt F°").Sort.SortFields. _
Add Key:=Range("A2:A500"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Pro° - Mut° - Miss° - Chgt F°").Sort
.SetRange Range("A1:Z500")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Save
ActiveCell.FormulaR1C1 = "Date"
Range("AB1").Select
ActiveCell.FormulaR1C1 = ""
Range("AB1").Select
ActiveSheet.Buttons.Add(2826, 29.25, 72, 72).Select
Selection.OnAction = "Dat"
Selection.Characters.Text = "Bouton Tri"
With Selection.Characters(Start:=1, Length:=10).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
ActiveWorkbook.Save
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub

Je souhaiterai que celle-ci fonctionne en mode feuille protégée.

Lorsque je veux le faire en mode feuille protégée cette erreur s'affiche

Comment résoudre le problème merci de votre aide

Cordialement