Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Immuable As Variant
Dim PasTouche As Range
Set PasTouche = Cells(2, 3)
Immuable = PasTouche.Value
If Not Application.Intersect(Target, PasTouche) Is Nothing Then: PasTouche.Value = Immuable: Cells(1, 1).Select
Set PasTouche = Nothing
End Sub