pb VBA pour archivage devis

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