ENTER "changeant"

[tiberus]

Bonjour

Je me permets de faire appel à vos conseils car je cherche à faire une manipulation, sous VBA, pour laquelle je n'ai rien trouvé sur les forums. J'ai réglé les préférences d'Excel pour que, lorsque j'appuie ENTER, ce soit la cellule d'en-dessous qui soit sélectionnée. Or, j'aimerais que dans une zone (et dans cette zone seulement!), lorsque j'appuie ENTER, le curseur se déplace vers la droite. Pour l'exemple, j'ai nommé cette plage "Zone".

Je pensais à l'événement CHANGE, une procédure du style:

If Application.Intersect(Target, Range("Zone")) Is Nothing Then
Application.MoveAfterReturnDirection = xlDown

If Not Application.Intersect(Target, Range("Zone")) Is Nothing Then
Application.MoveAfterReturnDirection = xlDownToRight
End If
End If

Mais ça ne marche pas! Je suppose que VBA doit pouvoir intercepter une valeur en fonction du if, mais je n'arrive pas à la saisir. Merci aux téméraires qui voudront bien se pencher sur le problème!