Bonjour à tous,

J'aimerai créer une macro qui me permet de créér un saut de page.

Je rentre dans le détail:

Une fois qu'on trouve la cellule comprenant l'expression " Page n° ", on crée un saut de page juste en dessous de cette cellule.

J'ai pensé a une macro du genre :

Sub test()
Dim X As Long
For X = ActiveSheet.HPageBreaks.Count To 1 Step -1
ActiveSheet.HPageBreaks(X).Delete
Next X
For X = 1 To Range("A65536").End(xlDown).Row
If Range("Page" & X) <> "" Then _
ActiveSheet.HPageBreaks.Add Before:=Range("Page" & X)
Next X
End Sub

Mais sans succès ...

Quelqu'un a t-il une solution ?

Configuration: Windows XP Internet Explorer 6.0