Sélection automatique de la cellule suivante

bonjour le forum, je voudrais que lors de la saisie de données le curseur change automatiquement vers la cellule suivante une fois introduit la valeur dans la cellule. Je joins un petit fichier d'exemple.. merci pour votre aide

Bonjour,

Essaie comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$4" Then Target.Offset(1).Select
    If Target.Address = "$G$4" Then Target.Offset(, 1).Select
End Sub

Super Jean-Eric, cela fonctionne parfaitement.... merci