Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' si la cellule modifiée se trouve dans la colonne A
If Not Intersect(Target, Range('A:A')) Is Nothing Then
' alors on sélectionne la cellule qui se trouve 3 lignes
' plus bas. 'Target.Range('A4')' est équivalent à
' 'Target.Offset(3,0)'
Target.Range('A4').Select
End If
End Sub