Bonjour,
Si ".Locked" ne marche pas, tu peux aussi faire ça :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 'ThisWorkbook, Selection d' un objet de la feuille
If ActiveCell.Address = "$A$1" Then
SendKeys "{Enter}", True
End If
End Sub
Le problème, c' est qu' il est bien plus facile de faire sauter la "protection." (Il ya mieux)