Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Tablo")) Is Nothing Or Target.Count > 1 Then Exit Sub
Dim lig As Long, col As Long
With Range("Tablo")
lig = Target.Row - .Cells(1, 1).Row + 1
col = Target.Column - .Cells(1, 1).Column + 1
If col < .Columns.Count Then
.Cells(lig, col + 1).Select
Else
.Cells(lig + 1, 1).Select
End If
End With
End Sub