Private Sub Worksheet_Activate()
If Not Intersect(ActiveCell, [Plage]) Is Nothing _
Then Application.MoveAfterReturnDirection = xlToLeft
End Sub
Private Sub Worksheet_Deactivate()
Application.MoveAfterReturnDirection = xlDown
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(ActiveCell, [Plage])
Application.MoveAfterReturnDirection = IIf(r Is Nothing, xlDown, xlToLeft)
End Sub