Re
ce coup ci je pense avoir tout compris lol !!!
alors je ne sais pas si il y a plus simple sinon voila en attendant
Option Explicit
Sub imprimespe()
Dim rang As Long
Dim total As Integer, i As Integer
Do
total = total + 1
Loop Until Cells(5 + total * 50, 1) = "" 'le fois 50 depend de ton imprimante est de ta mise en page
For i = 1 To total - 1
Cells(1, 1) = i & "/" & total - 1
rang = 5 + i * 50
Range("a1:g" & rang).Select 'g depend aussi de ton imprimante...
Selection.PrintPreview 'remplace par print une fois que tu auras ajuster les paramétres
Rows(Right(Str(rang - 49 * i), Len(Str(rang)) - 1) & ":" & Right(Str(rang), Len(Str(rang)) - 1)).Hidden = True
Next
Rows.Hidden = False
End Sub
Voilà si tu veux plus d'explications pas de pb
A plus
@+Vincent