Re
dans la fenêtre des codes de la feuille
Private Sub Worksheet_Change(ByVal R As Range)
If R.Row > 1 And R.Row < 24 And R.Column = 2 Then R(1, 7).Select
If R.Row > 1 And R.Row < 23 And R.Column = 8 Then R(2, -5).Select
End Sub
ou
Private Sub Worksheet_Change(ByVal R As Range)
If R.Count > 1 Then Exit Sub
If Not Intersect(R, [B2:B23]) Is Nothing Then R(1, 7).Select
If Not Intersect(R, [H2:H22]) Is Nothing Then R(2, -5).Select
End Sub