PB Macro achivage - Erreur d'exécution 1004

Bonjour,

Je suis débutant sur VBA. Je cherche à archiver les données saisies de ma feuille "Bon retour" dans l'onglet "Historique Retours". J 'ai une erreur d'exécution 1004 (Erreur définie par l'application ou par l'objet) dont vous trouverez ci dessous le détail que je ne parviens par à corriger.

J'ai joint le doc en PJ pour aider à vos avis éventuels.

Merci d'avance

Hello,

A tester ce code

Option Explicit
Dim ligne%, num%
Dim WsHR As Worksheet, WsBR As Worksheet

Sub Imprimer_enregistrer()

Set WsHR = Sheets("Historique_Retours")
Set WsBR = Sheets("Bon_Retour")

    'Archivage

With WsHR
ligne = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
    .Range("A" & ligne).Value = WsBR.Range("K18").Value
    .Range("B" & ligne).Value = WsBR.Range("M14").Value
    .Range("C" & ligne).Value = WsBR.Range("H24").Value
    .Range("D" & ligne).Value = WsBR.Range("H21").Value
    .Range("E" & ligne).Value = WsBR.Range("C33").Value
    .Range("F" & ligne).Value = WsBR.Range("J33").Value
    .Range("H" & ligne).Value = WsBR.Range("C34").Value
    .Range("I" & ligne).Value = WsBR.Range("J34").Value
    .Range("J" & ligne).Value = WsBR.Range("J36").Value
End With
    'Impression
'WsBR.PrintOut Copies:=2, Collate:=True

   'Incrémenter bon
num = WsBR.Range("M14").Value
num = num + 1
WsBR.Range("M14").Value = num

      'Remise à zéro
WsBR.Range("H21:P21").ClearContents
WsBR.Range("H24:Q24").ClearContents
WsBR.Range("C33:N33").ClearContents
WsBR.Range("C34").Value = ""

    'Enregistrement
ActiveWorkbook.Save
End Sub

Attention, ta pièce jointe comprend des données personnelles. Je te conseil de la supprimer.

A+,

Kilian