Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement
'évite le bug si tu effaces plusieurs cellules
If Selection.Cells.Count > 1 Then Exit Sub
'si la cellule n'est pas vide, sélectionne la cellule à sa droite
If Target.Value <> '' Then Target.Offset(0, 1).Select
End Sub