:king:
le Range("A1").CurrentRegion correspond au cellules adjacente à la cellule A1, c'est à dire jusqu'a la prochaine colone ou ligne vide..
attention aussi je te l'ai déjà écrit mais tu peu avoir des problémes si les derniéres lignes de la colonne A sont vide..
car avec :le code copie les données dans la cellule juste en dessois de la derniére cellule non-vide de la colone A...Code:thisWorkbook.Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0)