Enregistrement automatique en vba sous excel

'definition
Dim FichierWord As Object
Set FichierWord = CreateObject("Excel.Application")
' Création document
FichierExcel.Documents.Add
' Ecriture dans document
Worksheets("Ta Feuille").Range("A2:H66").Copy  'tu selectionne la plage de donner a copier
DocExcel.Range.PasteSpecial
FichierExcel.Visible = True

Private Sub CommandButton1_Click()
Dim Chemin As String
Dim DerniereLigneSource As Integer, DerniereLigneDestination As Integer
'ici on affecte à la variable "chemin" le chemin d'accès complet au classeur de destination des données
Chemin = ActiveWorkbook.Path & "\balance.xls" 
'détermine la dernière ligne du fichier source
With Workbooks("journal").Sheets("Feuil1")
    DerniereLigneSource = .Range("A65536").End(xlUp).Row
End With
'ouverture du fichier destination
Workbooks.Open Chemin 'ici la feuille de destination sera la Feuil1
'ActiveWorkbook.Sheets("Feuil3").Activate 'si vous voulez copier dans la 3ème feuille
' détermine la première ligne vide du classeur destination
DerniereLigneDestination = Range("A65536").End(xlUp).Row + 1
'prends les données dans la feuille1 du source pour les placer dans la feuille sélectionnée plus haut
With Workbooks("journal").Sheets("Feuil1")
    Cells(DerniereLigneDestination, 1) = .Cells(DerniereLigneSource, 1)
    Cells(DerniereLigneDestination, 2) = .Cells(DerniereLigneSource, 2)
    Cells(DerniereLigneDestination, 4) = .Cells(DerniereLigneSource, 6)
    Cells(DerniereLigneDestination, 5) = .Cells(DerniereLigneSource, 8)
    Cells(DerniereLigneDestination, 6) = .Cells(DerniereLigneSource, 9)
End With
'enregistre et ferme le fichier destination
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub