Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then ' Plage à adapter
Application.EnableEvents = False
Plage = Split(Target.Address, "$") ' Récupère la plage décomposée
Cells(1 + Plage(UBound(Plage)), "A").Select ' sélectionne la cellule après la dernière sélectionnée
End If
Fin:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub