[galopin01]

Bonsoir,
La macro suivante fait celà avec une seule feuille :
Dans cet exemple les souches sont numérotées
Colonne A Lignes 12/24/36/48
les billets
Colonne B Lignes 12/24/36/48
Il y a juste à formater les cellules

Sub test()
For i = 1 To 597 Step 4
Range(Cells(12, 1), Cells(12, 2)).Value = i
Range(Cells(24, 1), Cells(24, 2)).Value = i + 1
Range(Cells(36, 1), Cells(36, 2)).Value = i + 2
Range(Cells(48, 1), Cells(48, 2)).Value = i + 3
ActiveSheet.PrintPreview
Next
End Sub

Ok ?