Private Sub CommandButton1_Click()
' [Message] est le nom de la cellule B13
ActiveSheet.Unprotect ("1234") ' On déprotège la feuille
[Message].Interior.Color = RGB(200, 255, 255) ' On change la couleur de fond
[Message] = "Vous venez de cliquer sur le bouton NOTES LOC NG" ' On change le message
ActiveSheet.Protect ("1234") ' On reprotège la feuille
End Sub