Macro pour Sauvegarder des infos d'un document renouvelable (RESOLU)

Sub Archive()
Dim CellArch, vArr(3), i As Byte, dLig&
CellArch = Array("I9", "E24", "E28")
For i = LBound(CellArch) To UBound(CellArch)
vArr(i) = Range(CellArch(i)).Value
Next i
dLig = Sheets("Chrono").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Chrono").Cells(dLig+1, "B").Resize(, 3).Value = vArr
End Sub

Sub ArchiveII()
Dim f As Worksheet, dLig&: Set f = Sheets("Facture")
dLig = Sheets("Chrono").Cells(Rows.Count, "B").End(xlUp).Row
    With Sheets("Chrono").Cells(dLig + 1, "B")
        .Value = f.[I9]: .Offset(, 1) = f.[E24]: .Offset(, 2) = f.[E28]
    End With
End Sub

Sub ArchiveIII()
Dim f As Worksheet, dLig&: Set f = Sheets("Facture")
dLig = Sheets("Chrono").Cells(Rows.Count, "B").End(xlUp).Row
    With Sheets("Chrono").Cells(dLig + 1, "B")
        .Value = f.[I9]: .Offset(, 1) = f.[E24]: .Offset(, 2) = f.[E28]
    End With
f.[I9]=Empty :f.[E24]=Empty : f.[E28]=Empty
End Sub