code copie

Bonjour,

J'ai un code pour faire une archive avec un bouton, comment faire pour le mettre dans un autre tableau.
merci de votre aide
Voici le code
Sub SeeCode()
ActiveWorkbook.VBProject.VBComponents('Saisie').CodeModule.CodePane.Show
End Sub

Sub Archivage()
Dim Mydate, Myday, Mymonth As String
Mydate = Date
Myday = Day(Date)
Mymonth = Month(Mydate)
Myyear = Year(Date)
NomFichier = 'Archive du ' & '-' & Myday & ' ' & Mymonth & ' ' & Myyear & '.xls'

ActiveSheet.Cells.Select
Selection.Copy
Workbooks.Add
Range('A1').Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Range('A3').Select
On Error Resume Next
MkDir 'Cocuments and SettingsutilisateurMes documentsArchive'
ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat _
:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
False, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub