Sub Macro1()
Dim O As Object 'déclare la variable O (Onglets)
For Each O In Sheets 'boucle sur tous les onglets
O.ResetAllPageBreaks 'Rétablit tous les sauts de page
O.HPageBreaks.Add Before:=O.Range("A43") 'ajoute un saut de page avant la ligne 43
Next O 'prochain onglet de la boucle
End Sub