Procedure Sauvegarderfacture()

Dim noLg en tant que entier
Dim fVente en tant que entier
Dim fFacture en tant que entier

fVente = worksheets("Ventes")
fFacture = worksheets("Facture")
noLg = 4

Tant que Worksheets(fVente).cellule(noLg, 1) <> '' faire
  noLg = noLg + 1
Fin Tantque

Worksheets(fVente).cellule(noLg, 1) = Worksheets(fFacture).cellule(9, 3)
Worksheets(fVente).cellule(noLg, 2) = Worksheets(fFacture).cellule(9, 8)
Worksheets(fVente).cellule(noLg, 3) = Worksheets(fFacture).cellule(13, 7)
Worksheets(fVente).cellule(noLg, 4) = Worksheets(fFacture).cellule(52, 10)
Worksheets(fVente).cellule(noLg, 5) = Worksheets(fFacture).cellule(53, 10)
Worksheets(fVente).cellule(noLg, 6) = Worksheets(fFacture).cellule(54, 10)
Worksheets(fVente).cellule(noLg, 7) = Worksheets(fFacture).cellule(55, 10)

Calculfacture