Sub Archiver()
Dim C As Integer, R As Integer
C = 1
With Sheets("Données")
R = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(R, C).Value = Now
For Each Cell In Sheets("RETRAIT CYLINDRE").Range("F4,F9,F14,F19,F24,F29,C13,H13")
C = C + 1
.Cells(R, C).Value = Cell.Value
.Cells(R, C).NumberFormat = Cell.NumberFormat
Next
End With
End Sub