Saut de page automatique

[Eric]

Bonjour,

Comment puis-je définir automatiquement une saut de page à chaque ligne vide rencontré et finir l'exécution de la boucle quand il y a 2 ligne vides

merci

 

[FDinguirard]

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