curseur qui descend encore et encore

Si la colonne de données ne comporte pas de lignes vides entre les données, tu peux exécuter cette petite fonction après t'être positionné sur la première donnée de ta colonne :

Sub DernièreLigneEcrite()
Selection.End(xlDown).Select
End Sub

Ber Nar.