Bonjour,
essaye avec cette macro
Sub Déprotégerlafeuille()
On Error GoTo errmag
With ActiveSheet
.Protect vbNullString, , , , , , True
.Protect vbNullString, , , , , , , , , , True
.Unprotect vbNullString
End With
MsgBox "Protection de la feuille a été enlevée."
Exit Sub
errmag:
MsgBox "Erreur lors de la déprotection de la feuille." & vbCrLf & "Tentez de nouveau votre chance."
End Sub