Dim x As Long
Private Sub Workbook_Open()
'mémorise l'option en cours
x = Application.MoveAfterReturnDirection
'applique nouvelle option
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'à la fermeture du classeur rétabli ancienne option
Application.MoveAfterReturnDirection = x
End Sub