un coup de pouce pour ma macro

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()
'
' Position derniere 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, = 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

Bonjour aussi,

Il faudrait un peu plus de précision, par exemple où se trouve le numéro à incrémenter.

S'il est en G19 sur la feuille Facture alors il suffit de mettre à la fin de la macro (après Sheets("Facture").Select) :
Range("G19")= Range("G19").value +1

Ainsi lors de la prochaine saisie sur la feuille Facture le numéro est déjà incrémenté.

Concernant la dernière ligne, c'est la dernière ligne vide sur quelle feuille ?

A+

Merci DACHEVID pour la réponse

Les cellules qui doivent être copiées viennent de la feuille "facture" pour être enregistré sur la Feuille "Etat"
Cela Fonctionne bien, mais il me faut un N° d'enregistrement avant la réf G19
Et bien sur que l'enregistrement ce fasse sur la dernière ligne vide de la feuille "Etat"

Merci par avance de ta réponse

le problème ne semble pas venir de la dernière ligne mais

Dans le fichier ci-dessous le principe fonctionne mais le problème est que je ne sais pas comment faire pour que l'enregistrement ne reste pas sur la même ligne puisque je crois qu'il faut faire incrémenter un comptage sur Cells(2>, 1)

Avez vous une Idée Svp

Sub CopieFactures()

' Copie les cellules de la Feuil "Facture"
' Dans la Feuille Etat

Sheets("Etat").Select

Range("A65536").End(xlUp).Offset(1, 0).Select

' Positionne sur la dernière ligne avant la copie
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, = 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]

' Il faut pouvoir faire augmenter Cells 2
' pour ne pas rester sur la dernière ligne enregistré
'
Cells.Select
Selection.Columns.AutoFit
Selection.Rows.AutoFit
' Sheets("Facture").Select
End Sub