Amélioration de copie de donné entre feuilles (VBA)

Range("B13:E13").Copy Destination:=Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

Sub Essai()
Sheets("Donnée").Select
Range("B13:E13").Copy
Sheets("Archive").Select
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Interior.ColorIndex = xlNone
With ActiveCell
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
    End With
With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
    End With
End Sub

Bonne journée

Sub Essai1()
With Feuil5.[B13:E13]
   Feuil2.[A65536].End(xlUp)(2).Resize(, 4).Value = .Value
   .ClearContents: End With
End Sub