Bonjour Jérémie bonjour le forum,
Essaie avec cette événementielle Change à placer dans le composant de l'onglet où tu veux que ça agisse. Feuil1 (Feuil1) par exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Target.Offset(3, 0).Select
End Sub