Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Range
Dim R2 As Range
Set R = ActiveSheet.Range(PLAGE_PROTEGE)
Set R2 = Application.Intersect(Target, R)
If Not R2 Is Nothing Then
Application.EnableEvents = False
OldSelection.Select
Application.EnableEvents = True
Else
Set OldSelection = Target
End If
End Sub