pb VBA pour archivage devis

[65debutant]

Bonjour
J'essaye avec mes faibles connaissances de créer un suivi des devis et factures pour ma fille qui est artisan
J'ai trouvé un code VBA pour créer un historique des devis ( onglet Historique devis). Il fonctionnait au début puis j'ai du par erreur effacer ou modifier quelque chose, car il ne fonctionne plus.
Malgré mes recherches je ne trouve pas la solution
Pourriez vous m'aider à trouver la raison de ce non fonctionnement
Merci d'avance

 

[cp4]

Bonjour, J'ai un peu retoucher ta macro. Je te laisse le soin de tester.

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

 

[65debutant]

Merci beaucoup de ton aide, cela fonctionne
Je te remercie encore
Cordialement