@ 78chris
Par curiosité, est-il possible de procéder autrement que de sélectionner la cellule après avoir l'avoir sauvée, par exemple en remplaçant la touche "Enter" par "Ctrl+Enter" quand on est sur une cellule bien précise ? Parce qu'avec ton code, on passe furtivement par la cellule d'en-dessous.
J'ai trouvé des codes que j'ai essayé d'adapter comme suit mais aucun ne fonctionne ;
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell = Range("B3") Then
Application.OnKey "~"
Application.SendKeys "^~"
End If
End Sub
Ou ;
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "B3" Then
Application.OnKey "~"
Application.SendKeys "^~"
End If
End Sub
En fait ça marche mais il y a un message d'erreur, bizarre.