[VBA - boucle] Cycle de travail et roulement - RESOLU

Sub rlt_vers_cal()
Dim T, Plage, Sem As Byte, TF, DL As Integer
With Sheets("Rlt")
Sem = .Range("L1") 'Donne le nombre de semaine sur le roulement
DL = .Range("E2").End(xlDown).Row
ReDim TF(1 To DL - 1, 1 To 7 * (DL - 1))
Plage = Range("E2:K" & DL)
T = MergeArray2DVert(Plage, Plage)
For i = 1 To UBound(Plage)
    b = 0
    For j = 0 To UBound(Plage) - 1
        For jour = 1 To 7
            b = b + 1
            TF(i, b) = T(i + j, jour)
        Next
    Next
Next
.Range("M14").Resize(UBound(TF, 1), UBound(TF, 2)) = TF
End With
End Sub

Function MergeArray2DVert(a, b)
'http://boisgontierjacques.free.fr/pages_site/tableaux.htm#FusionVert2d
  maxtab1 = UBound(a)
  Dim Tbl(): ReDim Tbl(1 To UBound(a) + UBound(b), 1 To UBound(a, 2))
  For i = LBound(a) To UBound(a)
    For c = 1 To UBound(a, 2): Tbl(i, c) = a(i, c): Next
  Next i
  For i = 1 To UBound(b)
    For c = 1 To UBound(b, 2): Tbl(maxtab1 + i, c) = b(i, c): Next
  Next i
  MergeArray2DVert = Tbl
End Function

Sub rlt_vers_cal()
Dim T, Plage, Sem As Byte, TF, DL As Integer
With Sheets("Rlt")
Sem = .Range("L1") 'Donne le nombre de semaine sur le roulement
DL = .Range("E2").End(xlDown).Row 'donne le N° dernière ligne utile dans le classeur ligne 9
ReDim TF(1 To DL - 1, 1 To 7 * (DL - 1))  'création d'un tableau de 8 lignes(semaines) sur 7x8 jours
Plage = Range("E2:K" & DL) ' on mets en tableau les données à copier
T = MergeArray2DVert(Plage, Plage) 'on copie les mêmes données à la suite des premières
For i = 1 To UBound(Plage)  ' pour chacune des 8 (dans l'exemple) semaines
    b = 0    'compteur  de jours pour remplir le tableau TF
    For j = 0 To UBound(Plage) - 1 ' pour chaque lignes de la plage
        For jour = 1 To 7           ' pour chaque jour
            b = b + 1                   'on incrémente l'indice du tableau TF
            TF(i, b) = T(i + j, jour) ' on copie dans TF les données de la plage
        Next
    Next
Next
.Range("M14").Resize(UBound(TF, 1), UBound(TF, 2)) = TF 'on copie dans la feuille le tableau TF
End With
End Sub