Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 Or Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then Target.Offset(0, 5).Select
If Target.Column = 7 Then Target.Offset(1, -5).Select
End Sub
bonsoir,
A+Code:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 4 Or Target.Count > 1 Then Exit Sub If Target.Column = 2 Then Target.Offset(0, 5).Select If Target.Column = 7 Then Target.Offset(1, -5).Select End Sub
kjin