[galopin01]

bonjour,
le plus simple, dans la feuille unique :
Nommer la première souche par exemple : ref

formule du 1er billet : = ref
formule pour 2ème souche = ref + 150 (et 2ème billet = )
formule pour 3ème souche = ref + 300 (et 3ème billet = )
formule pour 4ème souche = ref + 450 (et 4ème billet = )
Ensuite :

Sub test()
For i = 1 To 150
Range('ref').Value = i
ActiveSheet.PrintPreview
Next
End Sub