Sub Macro1()
' Déplace les sauts de page pour éviter de couper les cellules fusionnées
Dim X As HPageBreak
ActiveSheet.ResetAllPageBreaks
For Each X In ActiveSheet.HPageBreaks
If X.Location.Address(0, 0) <> X.Location.MergeArea(1).Address(0, 0) Then
Cells(X.Location.MergeArea(1).Row, 1).Select
ActiveSheet.HPageBreaks.Add before:=Cells(X.Location.MergeArea(1).Row, 1)
End If
Next X
End Sub