Bidouilleur du Dimanche besoin de vous

Dans ma Macro j'aimerais pouvoir inclure un N° automatique et surtout que l'enregistrement ce place sur la dernière ligne vide.
Merci de votre concours

Sub CopieFactures()
'
' Copie sur la Feuil2
' Insertion d'une ligne avant la copie
' Numéro de Facture Auto

' Copie les cellules dans la Feuille Etat

Sheets("Etat").Select
Sheets("Etat").Cells(2, 1) = Sheets("Facture").[G19]
Sheets("Etat").Cells(2, 2) = Sheets("Facture").[H19]
Sheets("Etat").Cells(2, 3) = Sheets("Facture").[I19]
Sheets("Etat").Cells(2, 4) = Sheets("Facture").[J19]
Sheets("Etat").Cells(2, 5) = Sheets("Facture").[K19]
Sheets("Etat").Cells(2, 6) = Sheets("Facture").[G21]
Sheets("Etat").Cells(2, 7) = Sheets("Facture").[H21]
Sheets("Etat").Cells(2, 8) = Sheets("Facture").[I21]
Sheets("Etat").Cells(2, 9) = Sheets("Facture").[J21]
Sheets("Etat").Cells(2, 10) = Sheets("Facture").[k21]
Sheets("Etat").Cells(2, 11) = Sheets("Facture").[G23]
Sheets("Etat").Cells(2, 12) = Sheets("Facture").[H23]
Sheets("Etat").Cells(2, 13) = Sheets("Facture").[I23]
Sheets("Etat").Cells(2, 14) = Sheets("Facture").[J23]
Sheets("Etat").Cells(2, 15) = Sheets("Facture").[H25]
Sheets("Etat").Cells(2, 16) = Sheets("Facture").[I25]
Sheets("Etat").Cells(2, 17) = Sheets("Facture").[J25]

Cells.Select
Selection.Columns.AutoFit
Selection.Rows.AutoFit
Sheets("Facture").Select
End Sub