Bonjour,
1 - Ta question concernant une macro ( du VBA) il faut la poster dans la section VBA du forum.... j'ai déplacé ton sujet dans la bonne section.
2 - Bien que normalement on ne donne pas de code à la demande...
voici un exemple de ce que tu peux faire :
Sub Macro1()
Dim Derniere_Ligne As Integer
Derniere_Ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
ActiveWindow.View = xlPageBreakPreview
For l = 2 To Derniere_Ligne
Cells(l, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next
ActiveWindow.View = xlNormalView
End Sub