Loto sous Excel

Sub PrintGrid()
Dim Tablo As Variant, z As Range, i%, j%, k%
k = (Worksheets("Cartons").Range("M1").Value * 3) - 8
Worksheets("Cartons").Activate
j = 1
For i = 1 To k Step 9
Tablo = Worksheets(2).Range("A" & i & ":I" & i + 2)
Range(Cells(2, 1), Cells(4, 9)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i + 3 & ":I" & i + 5)
Range(Cells(8, 1), Cells(10, 9)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i + 6 & ":I" & i + 8)
Range(Cells(14, 1), Cells(16, 9)) = Tablo
Tablo = Clear

Range("I5").Value = j
    ActiveWindow.SelectedSheets.PrintPreview
j = j + 3
Next
End Sub

Tablo = Worksheets(2).Range("A" & i & 18 & ":I" & i + 20)
Range(Cells(2, 11), Cells(4, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 21 & ":I" & i + 23)
Range(Cells(8, 11), Cells(10, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 24 & ":I" & i + 26)
Range(Cells(14, 11), Cells(16, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 27 & ":I" & i + 29)
Range(Cells(20, 11), Cells(22, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 30 & ":I" & i + 32)
Range(Cells(25, 11), Cells(27, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 33 & ":I" & i + 35)
Range(Cells(30, 11), Cells(32, 19)) = Tablo
Tablo = Clear

Tablo = Worksheets(2).Range("A" & i & 18 & ":I" & i + 20)
Range(Cells(2, 11), Cells(4, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 21 & ":I" & i + 23)
Range(Cells(8, 11), Cells(10, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 24 & ":I" & i + 26)
Range(Cells(14, 11), Cells(16, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 27 & ":I" & i + 29)
Range(Cells(20, 11), Cells(22, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 30 & ":I" & i + 32)
Range(Cells(25, 11), Cells(27, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 33 & ":I" & i + 35)
Range(Cells(30, 11), Cells(32, 19)) = Tablo
Tablo = Clear