[galopin01]

Oups !
Correction: l'idée est la même mais en plus j'ai relu l'énoncé !

Sub test()
For i = 1 To 150
Range(Cells(12, 1), Cells(12, 2)).Value = i
Range(Cells(24, 1), Cells(24, 2)).Value = 150 + i
Range(Cells(36, 1), Cells(36, 2)).Value = 300 + i
Range(Cells(48, 1), Cells(48, 2)).Value = 450 + i
ActiveSheet.PrintPreview
Next
End Sub

A+