Sub Rlt_2()
nblign = Sheets("A").Range("A1") 'ligne max
nblign2 = Sheets("Rlt").Range("L4") 'ligne max rlt
dercol = Sheets("Rlt").Range("L5") 'dernière colone rlt
With Sheets("A")
a = 2: b = 12 ' a et b init avec -1 car +1 en entrant dans le cycle
For y = 13 To 196 'donne l'adresse des colonnes
b = b + 1
If b = dercol + 1 Then b = 13
For x = 4 To nblign 'donne l'adresse des lignes sur la feuille roulements calendrier
a = a + 1
If a = nblign2 + 1 Then a = 3
.Cells(x, y) = Sheets("Rlt").Cells(a, b)
Next x
Next y
End With
End Sub