Sub main()
Range("a1").Select
i = 1
lignedebut = 1
lignefin = 1
compteur = 0 'compte le nombre de lignes vides successives
While compteur < 2
For j = 1 To 50 'balaye les 50 premières cellules de la ligne en cours de lecture
chaine = chaine & CStr(Cells(i, j).Value)
Next j
If chaine = "" Then 'la ligne n° i est vide
If compteur = 0 Then
lignefin = i - 1
Rows(CStr(lignedebut) & ":" & CStr(lignefin)).Select
Selection.PrintOut Copies:=1, Collate:=True
lignedebut = i + 1
lignefin = i + 1
End If
compteur = compteur + 1
Else ' la ligne n'est pas vide
compteur = 0
lignefin = lignefin + 1
chaine = ""
End If
i = i + 1
Wend
End Sub