Saut d'une ligne si ligne déjà remplie

Bonjour à tous,

je poste ce message car c'est l'une des dernières étapes de mon classeur sur le semestre.

J'aimerai comme dit dans le titre réussir à faire un saut de ligne si la ligne est déjà remplie ou dit de manière différente que les informations s'enregistre sur la première ligne vide.

Je m'explique, j'ai trois feuilles devis, facture et historique facture. Le devis alimente la feuille facture avec le bouton commande valider (les informations sont remplies automatiquement grâce au combobox), et la feuille facture doit alimenter la feuille historique facture.

Mais je n'arrive pas à faire le lien entre ces deux dernières.

L'idée est que l'on récupère les caractéristiques de la facture dans la feuille historique factures pour ensuite alimenter des TCD et Graphiques.

Le problème est que je n'arrive pas à sauter une ligne si elle est déjà rempli. J'ai essayé de coder selon ce raisonnement :

Si la ligne de la feuille historique facture est vide alors on enregistre

Sinon on récupère la valeur de la dernière ligne remplie à laquelle on ajoute 1

Mais j'y arrive pas, si vous aviez la gentillesse de m'aider ce serait cool ^^

Salut agbj,

je ne sais pas si j'ai bien compris mais voici un essai

Sub archiver_nouvelle_facture()
Dim shtSrc As Worksheet, shtDest As Worksheet
Dim nbligne As Long

Set shtSrc = Sheets("Facture")
Set shtDest = Sheets("Historique factures")
nbligne = shtDest.Cells(shtDest.Rows.Count, "F").End(xlUp).Row + 1

shtSrc.Range("D13:I22").Copy shtDest.Range("F" & nbligne)
shtDest.Activate
End Sub