Bonjour Potti, bonjour le forum,
Pour atteindre la première cellule vide de la colonne A :
Range('A65536').End(xlUp).Offset(1, 0).Select
En fait on part de la dernière cellule de la colonne Range('A65536'), on remonte jusqu'à la première cellule éditée, End(xlUp), puis on redescent d'une ligne pour atteindre la première ligne vide, Offset(1, 0).