Incrémentera nouveau numéro facture et Archiver

Bonjour Famille,

j'ai testé ce code VBA pour incrémenter un nouveau numero et archiver la facture.
La formule ne marche pas bien dans le tableau des archivages.

J'ai besoin d'aide, ci-dessous la formule:

Sub Archiver()
'archive les elements des pièces générées
ligne = Sheets("ARCHIVE").Range("A2").End(xlDown).Row + 1
Sheets("ARCHIVE").Range("A" & ligne).Value = Sheets("Pièce de caisse").Range("F10").Value
Sheets("ARCHIVE").Range("B" & ligne).Value = Sheets("Pièce de caisse").Range("F12").Value
Sheets("ARCHIVE").Range("C" & ligne).Value = Sheets("Pièce de caisse").Range("E7").Value
Sheets("ARCHIVE").Range("D" & ligne).Value = Sheets("Pièce de caisse").Range("E8").Value
Sheets("ARCHIVE").Range("E" & ligne).Value = Sheets("Pièce de caisse").Range("F28").Value
Sheets("ARCHIVE").Range("F" & ligne).Value = Sheets("Pièce de caisse").Range("E9").Value

'incrementer un nouveau numero de pièce

Sheets("Pièce de caisse").Range("F10").Value = Sheets("Pièce de caisse").Range("F10").Value + 1

'Efffacer puis créer une nouvelle pièce

Sheets("Pièce de caisse").Range("E7").ClearContents
Sheets("Pièce de caisse").Range("C19:C23").ClearContents
Sheets("Pièce de caisse").Range("D20:D23").ClearContents
Sheets("Pièce de caisse").Range("E20:E23").ClearContents

End Sub

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Hello Jean_Marvin,

Un exemple de ton fichier serait le bienvenu pour explorer.

Quand tu dis que la formule ne marche pas bien, qu'est ce qui ne marche pas bien exactement ?

@+