Sub InserST2()
Dim pb As Object
Dim Cpb As Range
Dim i As Byte, j As Byte, k As Byte
Dim a as Integer
Selection.RemoveSubtotal
For Each pb In ActiveSheet.HPageBreaks
i = i + 1 '***incrémente le n°de saut de page général(Permet de gérer le cas de sauts de pages externes à la zone d'impression)
If pb.Extent = xlPageBreakPartial Then
j = j + 1 '***incrémente le n°de saut de page de la zone d'impression
Set Cpb = ActiveSheet.HPageBreaks(i).Location
If i > 1 Then
a = ActiveSheet.HPageBreaks(i - 1).Location.Row
Else
a = 9
End If
For k = a To Cpb.Row - 1
Cells(k, "A") = j
Next
End If
Next