Ber Nar

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.