Sub TEST2()
Dim i%, j%, k&, c%, nc%, nf%, nl%, v()
Const p& = 10
c = InputBox("Entrez le numéro du premier carnet ")
nc = InputBox("Entrez le nombre de carnets à imprimer")
nf = InputBox("Entrez le nombre de feuillets à numéroter")
nl = InputBox("Entrez le numéro de départ des liasses")
With [G1:I1].Resize(p * nc * nf, 3)
v = .Value
For i = 0 To nc - 1
k = 1 + p * nf * i
For j = 0 To nf - 1
v(k, 1) = c + i
v(k, 3) = nl + j
k = k + p
Next
Next
.Value = v
End With
End Sub