Sub Macro1()
Dim Te(), Ts(1 To 1, 1 To 7), L&, C&, PlgCibl As Range
Te = Workbooks("ExtractTCD.xlsx").Worksheets("TCD1 - Valeurs").[I3:I65].Value
Set PlgCibl = Workbooks("Matrice Transposition - Template.xlsx").Worksheets("Reclassement matrice").[D:J]
For L = 1 To 9
For C = 1 To 7: Ts(1, C) = Te(7 * (L - 1) + C, 1): Next C
PlgCibl.Rows(Choose(L, 9, 13, 17, 21, 25, 29, 33, 37, 41)).Value = Ts
Next L
End Sub