Sub Test_Archivage()
Dim i&, J&, Plg As Range
Dim T_EnTete As Variant, T_Data As Variant, T_Report As Variant
With Sheets("Saisie")
Set Plg = .Range(.Cells(8, 1), .Cells(.Rows.Count, 2).End(3).Offset(, 10))
T_EnTete = .Range("A1:L4")
End With
T_Data = Plg
ReDim T_Report(1 To UBound(T_Data, 1), 1 To 19)
For i = LBound(T_Data, 1) To UBound(T_Data, 1)
T_Report(i, 1) = T_EnTete(1, 6)
T_Report(i, 2) = T_EnTete(1, 2)
T_Report(i, 3) = T_EnTete(2, 2)
T_Report(i, 4) = T_EnTete(3, 2)
For J = 5 To 15
T_Report(i, J) = T_Data(i, J - 3)
Next J
For J = J To 19
T_Report(i, J) = T_EnTete(J - 15, 12)
Next J
Next i
Sheets("BD").Cells(Rows.Count, 1).End(3)(2).Resize(UBound(T_Report, 1), UBound(T_Report, 2)) = T_Report
Plg.ClearContents
End Sub