Microsoft 365 Allez directement en cellule "E2" sans passer par la cellule "I2"

[Usine à gaz]

Bonjour à toutes et à tous

J'en ai une "petite bonne" que je ne parviens pas à coder malgré mes recherches et tests.

Quand on valide "entrée" une cellule, Excel passe à la cellule suivante : Pour mon besoin, je voudrais l'éviter...

Ce que je voudrais faire :
cellule H2: Si Clic et modifie contenu ou clic ... à l'appui sur touche "entrée"
Allez directement en cellule "E2" (Cells(ActiveCell.Row, 5).Select)
sans passer par la cellule "I2"

Vous sauriez le faire ?
En cas, je joins un petit fichier test.

Un grand merci à tous pour votre aide...
Amicalement

 

[fanch55]

Petite question :
Est-il possible de mettre dans le ThisWorkBook "Application.MoveAfterReturn" = False" mais pour qu'il n'ait d'effet que sur une feuille ?

A mettre dans le Thisworkbook:
Modifier "Feuil1" par le nom de la feuille où le return doit être neutralisé

Private Sub Workbook_Open()
    Workbook_SheetActivate ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.MoveAfterReturn = Not Sh.Name = "Feuil1"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturn = True
End Sub

 

[Usine à gaz]

A mettre dans le Thisworkbook:
Modifier "Feuil1" par le nom de la feuille où le return doit être neutralisé

Private Sub Workbook_Open()
    Workbook_SheetActivate ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.MoveAfterReturn = Not Sh.Name = "Feuil1"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturn = True
End Sub

Merci à toi