Incrémenter de 1 ligne

Salut, j'ai un soucis sur mon programme, j'aimerais bien qu'a chaque fois que j'ajoute une boite au lettre, ça me copie le numéro mais actuellement, ça m'écrase toujours l'ancien et ça ne s'ajoute pas en dessous.

Par exemple première boite en A2

Deuxième boite en A3

Je pensais qu'en utilisant la fonction : End(xlUp).Row + 1

Cela allé fonctionner mais j'ai toujours le même problème.

Selection.Copy

Sheets("Poste").Select

Range("A2").Select

ligne = [A65000].End(xlUp).Row + 1

ActiveSheet.Paste

Merci d'avance.

Bonjour

Si tu joignais ton fichier, on pourrait mieux suivre tes explications...

Bye !

Bonjour,

essaye eventuellement comme ça :

Sub copier()
    With Sheets("Poste")
        der_ligne_poste = .Range("a" & Rows.Count).End(xlUp).Row + 1
        Selection.Copy Destination:=.Range("a" & der_ligne_poste).Paste
    End With
    Application.CutCopyMode = False
End Sub

Cordialement.

Merci de la réponse rapide, par contre j'aurais aimé savoir si on pouvais faire autrement car avec l'appel de formule, cela complique le programme, et je ne suis pas à l'aise avec cela.

Merci

Je continue à chercher, ce que je trouve étrange, c'est lorsque j'utiliser la fonction que je cite plus haut, cela marché mais avec des UserForm.

Là cela devrait être plus simple (passage d'une feuille à une autre) mais ça ne marche pas pareil j'ai l'impression.