Re : add after
je crois que j'ai trouvé :
Sub SautDePage()
Dim c As Range, i As Integer
With Feuil1
On Error Resume Next
For j = ActiveSheet.HPageBreaks.Count To 1 Step -1
ActiveSheet.HPageBreaks(j).Delete
Next j
On Error GoTo 0
'---Ajoute un saut de page...