Sub a()
Dim dl&, f As Worksheet: Set f = Sheets("Saisies")
f.Range(f.Cells(3, 2), f.Cells(3, 3)(8)).Copy
With Sheets("Archivage")
.Cells(Rows.Count, 3).End(3)(2).PasteSpecial xlValues, xlNone, False, True
dl = .Cells(Rows.Count, 3).End(3)(-0).Row
.Cells(dl, 1) = Date: .Cells(dl, 2) = "Course " & f.[E2].Text
End With
End Sub