Sub Archiver()
Dim ligne As Long
With Sheets("Historique_devis")
ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1 'dernière ligne non vide en colonne A
'copier-coller les cellules indiquées de la feuille Devis dans la feuille Historique Devis
.Range("A" & ligne).Value = Sheets("Devis").Range("J10").Value 'n° devis
.Range("B" & ligne).Value = Sheets("Devis").Range("e10").Value 'date émission devis
.Range("C" & ligne).Value = Sheets("Devis").Range("f13").Value 'nom client
.Range("D" & ligne).Value = Sheets("Devis").Range("f14").Value 'nom correspondant
.Range("E" & ligne).Value = Sheets("Devis").Range("k36").Value 'montant HT
.Range("F" & ligne).Value = Sheets("Devis").Range("k37").Value 'total TVA
.Range("G" & ligne).Value = Sheets("Devis").Range("k38").Value 'total port
.Range("H" & ligne).Value = Sheets("Devis").Range("k39").Value 'total TTC
.Range("I" & ligne).Value = Sheets("Devis").Range("h6:h7").Value ' ancien devis
End With
With Sheets("Devis")
'efface les données des cellules indiquées de la feuille Devis
.Range("b24:g30").ClearContents 'lignes devis
.Range("i24:i30").ClearContents ' lignes remises
.Range("b32:g34").ClearContents 'lignes prestations associees
.Range("i32:i34").ClearContents 'lignes remises sur prestations
.Range("f13:k13").ClearContents 'nom client
.Range("d19:l19").ClearContents 'prestation
.Range("d21:l21").ClearContents 'nature
.Range("d36:e36").ClearContents 'lieu des travaux
.Range("d37:e37").ClearContents 'transport aller
.Range("d38:e38").ClearContents 'transport retour
.Range("b47:l49").ClearContents 'observations
.Range("f41:g41").ClearContents ' acompte à la cde
.Range("e43:g43").ClearContents ' conditions reglement
.Range("e43:g43").ClearContents 'echeance
.Range("k38:l38").ClearContents 'transport
.Range("h6:h7").ClearContents 'ancien devis
'incrémente de +1 le numéro de Devis
.Range("j10").Value = .Range("j10").Value + 1
End With
End Sub