Sub archivagesTer()
Dim wsA As Worksheet, wsB As Worksheet, X&
Set wsA = Sheets("Mail"): Set wsB = Sheets("Achive_Hebdo")
X = wsB.Cells(Rows.Count, 1).End(3)(3).Row
Range(wsA.Cells(3, "E"), wsA.Cells(Rows.Count, "E").End(3)).Resize(, 3).Copy wsB.Cells(Rows.Count, 1).End(3)(3)
wsB.Cells(X, 1).CurrentRegion.BorderAround 1, xlThick, 17
End Sub