Bonjour Pascal, Johanne
On fait comme d'hab Pascal Toi tu as l'info et moi je fais Monsieur Plus !! lol
Voici la même méthode mais avec nettoyage des éventuels Pages Breaks résiduel ... (car sinon ils ne se nettoient pas)
Sub InsertPageBreakEvery54()
Dim L As Long, i As Long
Dim WS As Worksheet
Dim PB As HPageBreak
Application.ScreenUpdating = False
Set WS = ActiveSheet
L = WS.Range("A65536").End(xlUp).Row
On Error Resume Next
For Each PB In WS.HPageBreaks
PB.Delete
Next
For i = 55 To L Step 54
WS.HPageBreaks.Add Cells(i, 1)
Next
Application.ScreenUpdating = True
End Sub
PS on accélère aussi la procédure sans Update Screen, car même si il n'y a pas de sélection, Excel met à jour l'écran, sur 3500 lignes ça peut compter...
Bonne journée
@+Thierry