Fin d'une liste

[Jacky]

Bonjour à tous
Meilleurs voeux à tout le monde

Sur ma liste j'ai 4000 lignes et je voudrais par macro quand je clique sur un bouton allez à la dernière ligne.
Par avance merçi beaucoup.

 

[PascalXLD]

Bonjour

Range('A65536').end(xlup).select

Bonne journée

 

[coco_lapin]

Bonjour Jacy, Pascal76 et le forum.

Ce code permet de détecter la dernière ligne utilisée.

Dim DernLignTableau As Long

DernLignTableau = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Count).Row