Bonjour,
A mettre dans le code de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:B")) Is Nothing Then
If Target.Column = 1 Then
Target.Offset(0, 1).Select
End If
If Target.Column = 2 Then
Target.Offset(1, -1).Select
End If
End If
End Sub
Cordialement