Private Sub Worksheet_Change(ByVal Target As Range)
'Si une seule cellule change:
If Target.Count = 1 Then
'Qu'elle se trouve dans la zone B2 à K13:
If Not Intersect(Target, Range("B2:K13")) Is Nothing Then
'Si la cellule est en ligne 13, alors on sélectionne la cellule 3 colonnes plus loin, en ligne 2:
If Target.Row = 13 Then Cells(2, Target.Column + 3).Select
End If
End If
End Sub