Sub SautDePageApres_fax()
Dim c As Range
Dim i As Integer
With Feuil1 [B][COLOR=green]' à adapter[/COLOR][/B]
For Each c In .Range("A1:A" & [A65536].End(xlUp).Row)
If c.Value = "fax" Then
.HPageBreaks.Add c.Offset(1)
[B][COLOR=green]' Une feuille ne peut pas contenir plus de 1 026 sauts de page horizontaux Excel 2007[/COLOR][/B]
i = i + 1
If i = 1026 Then Exit Sub
End If
Next
End With
End Sub