Bonjour Hassan,
Si tu n'as pas de réponse, c'est à cause du sujet de ton post.
Ton travail est déjà pas mal avancé.
Refais un post en respectant la
charte de ce forum.
Mets un sujet plus précis.
Ceci dit pour ton soucis, le forum contient toutes les informations dont tu as besoin.
A priori, les informations à copier sont toujours au même endroit.
Cherche du côté d'instructions du genre :
Total = Sheets ("ADDITION").Range ("G42").Value
Pour la cible (là où il faut coller), il faut chercher la dernière ligne avant de coller. Ce sera du genre :
Sheets("Archive").Range ("C65536").End (xlUp).Select, pour trouver la dernière ligne utilisée. Il suffit d'injecter le contenu de la variable Total juste après.
Voilà, à la louche et rapidement sans vérifier, deux pistes à creuser.
En espérant que cela te dépanne.
Abel