copier à la ligne chaque nouveaux click

[br44]

bonjour le forum ,

Dans la procèdure qui suit est-il possible qu'à chaque excution le rèsultat s'affiche bien toutes les 79 lignes ? et si oui où dois-je placer la variable suivante:

Dim a As Interger

a = Range("A65536").End(XlUp).row

Ma procèdure :

Private Sub CommandButton2_Click() 'bounton "Enregistrer la fiche"
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String
Dim I As Integer
Dim y As Integer


Mois = ActiveSheet.Range("C3").Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook

ActiveWorkbook.Save

Wb2.Sheets("Détail").Range("A1:G29").Copy Destination:=Wb1.Sheets(Mois) _
.Range("A65536").End(xlUp)
Wb2.Sheets("Facture").Range("1:50").Copy Destination:=Wb1.Sheets(Mois) _
.Range("A65536").End(xlUp).Offset(1, 0)

With Wb1.Sheets(Mois)
For I = 1 To .Range("A1:G29").Columns.Count
.Columns(I).ColumnWidth = Wb2.Sheets("Détail").Columns(I).ColumnWidth
Next
y = 1
For I = 2 To .Range("A1:G29").Rows.Count
.Rows(I).RowHeight = Wb2.Sheets("Détail").Rows(y).RowHeight
Next
End With
Application.CutCopyMode = False

End Sub

Vous remerciant par avance de toute l'aide que vous pouriez m'apporter , je reste à vôtres disposition pour toutes questions .
br44
Pour infos

cette procèdure fonctionne pour la première copie mes elles ne place pas au bon endroit pour la copie suivantes . j'ai un dècalage de 15lignes se qui efface la fin de la copie prècèdante . Exemple:

Première copie = "A1:A79"
Copie suivante = "A67:A146" au lieu de "A80:A159"

Si quelqu'un à une solution pour se problème se serais formidable merci d'avance et à bientôt sur le forum
br44