VBA SUR FEUILLE EXCEL

Bonjour,

J'ai trouvé ce code pour pouvoir cocher une case à cocher sur ma feuille Excel.
Cela fonctionne tant que la feuille n'est pas protégée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Macro()
 
   ActiveSheet.Shapes("Check Box 89").Select
      With Selection
          .Value = xlOn
      End With
 
End Sub

Y'a til une autre solution plus directe sans avoir à sélectionnrer l'objet afin que cela fonctionne également lorsque la feuille est protégée ?

Merci