Sub Deverouillage()
'
' Deverouillage Macro
' Déverouille la feuille
'
Sheets(TAFEUILLE).Unprotect
End Sub
Sub Verouillage()
'
' Verouillage Macro
' Verouille la feuille
'
Sheets(TAFEUILLE).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True
End Sub