Bonjour Judoka, Jouxte,
tu peux également utiliser ce code, qui copie une cellule dans une autre feuille, se place automatiquement dans la cellule suivante, puis reviens dans la première feuille et efface les données.
Condition: te placer dans la première cellule de l'historique pour commencer le travail.
Ca te permet de travailler toujours sur la même feuille et d'archiver en même temps.
Petit conseille: créé une autre feuille historique qui sera la copie de l'archive et dans laquelle tu pourra te rendre pour visualiser tes historiques.
Range('C3').Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets('Historique').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets('feuille de travail').Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets('Historique').Select
ActiveCell.Next.Select
Sheets('feuille de travail').Select
Range('C3').Select
Si tu as un exemple, je peux te le mettre en place (et si j'ai le temps !
bbmarcus