bonjour, bonsoir,
une macro qui introduit le numéro de ligne 4 à 30 en A36 et lance l'impression, à tester
Sub imprime()
With ActiveSheet
For i = 4 To 30
.Range("A36") = i
.PageSetup.PrintArea = "$A$37:$L$90"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
End With
End Sub