Macro archiver vers autre classeur...que je n'arrive pas à modifier...

Set Plg = Wb1.Sheets("Bon de Commande").Range("u73:hr73" & Wb1.Sheets("Bon de Commande").Range("hr73").End(xlUp).Row)

Sub TransfertArchCommande()
Dim Wb1 As Workbook
Dim WB2 As Workbook
Dim Plg As Range, Derlgin As Long

If Range("ai73") = 0 Then
    MsgBox "Aucune denrée saisie....", , "Erreur"
    Exit Sub
End If
Application.ScreenUpdating = False
Set Wb1 = ThisWorkbook
Set WB2 = Workbooks.Open("C:\ARCHIVES COMMANDES\ArchivesBonsCommandes.xlsx") '.xlsx si excel 2010
Set Plg = Wb1.Sheets("Bon de Commande").Range("u73:hr73") ' ou Set Plg = Wb1.Sheets("Bon de Commande").Range("u73:hr" & Wb1.Sheets("Bon de Commande").Range("hr72").End(xlDown).Row)
    With WB2.Sheets("Archives")
      derlign = .Range("B65536").End(xlUp).Row
      .Range("GZ" & derlign + 1) = "Sauvegarde du " & Format(Date, "dd-mm-yyyy") & " à " & Time
        
      Dim i
      With .Range("B" & derlign + 1).Resize(Plg.Rows.Count, 206)
        .Value = Plg.Value
        For i = Plg.Rows.Count To 1 Step -1
            If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete xlUp
        Next
      End With
      .Columns("B:GZ").AutoFit
    End With
WB2.Save
WB2.Close
Application.ScreenUpdating = True
End Sub