Bonjour,
sur VBA dans le module de la feuille DONNEES
A modifier ou remplacer, puis par le menu REVISION / Oter la protection
Private Sub Worksheet_Activate()
Dim w As Worksheet
For Each w In Worksheets
If IsDate(w.Name) Then
w.Protect UserInterfaceOnly:=False
'w.[A10:N1000].Sort w.[A10], Header:=xlNo
End If
Next
End Sub