Salut,
Tu cherches en faites à connaitre le dernière cellule remplie pour copier le texte après. voila la solution :
dim Dercell as integer.
1 - Dercell= feuil1. Range("A1").End(xlDown).Row
2 - Dercell= Dercell +1
3 - range("a" & Dercell).select
Puis tu copies les données et voila
Allez je vais me fendre de kkes explications :
Ligne 1 : SE positionne en A1 et va chercher la derniere ligne en A, avec du texte. Puis cette valeur eststockée dans la variable Dercell. (Par exemple si la derniere cellule est A6, on stock la valeur 6 dans dercell).
ligne 2 : J'ajoute +1 à dercell (dans notre exemple 6+1 =7)
ligne 3 : Je pointe sur la nouvelle cellule vide en A7 (puisque Dercell vaut 7 maintenant).
Voilou, lesexplications n'etaient peut être pas nécéssaire, mais ca aidera peut être kk1 d'autre !!
A++
Creepy