Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = ActiveSheet.ProtectContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Commentaire").Enabled = _
Not ActiveSheet.ProtectContents
End Sub