comptage de pages dans pied de page

[sri75]

Bonjour la macro ci dessous compte les pages du classeur et indique en bas de page à gauche sur quelle page on se trouve par rapport au nombre total de pages ( ex 5/10 ).

par contre j'édite une page de plus que celle que je voudrais compter ce qui fait que mon nombre de pages total est faux par rapport à mon document ( ex j'édite 12 pages alors que mon document envoté n'en contient que 11, ce total est comptabilié dans la variable &N , je voudrais que ce qui soit porté en bas de page soit N-1.

Merci de vos idées sur ce point


Sub Macentet()
'Macro pour mettre l'entête et le pied de page à plusieurs onglets sélectionnés dans le classeur et inclure un compteur de page sélectionnée dans excel

Dim coll As Sheets
'Dim i As Integer

cpt = 0
Set coll = ActiveWorkbook.Windows(1).SelectedSheets
' Call MacprotNON
For Each maSheet In coll
maSheet.Activate
' '''''''''''
With ActiveSheet.Select
ActiveSheet.Unprotect
End With
' '''''''''''
With ActiveSheet.PageSetup
.LeftHeader = "&""Times New Roman,Gras""&U&12ASSOCIATION AGREEE DU CONSEIL SUPERIEUR DU NOTARIAT"
' &U sert à souligner U pour underline
' .CenterHeader = "&""Times New Roman,Gras""&20ENTETE CENTRE"
' .RightHeader = "&""Times New Roman,Gras""&14ENTETE DROIT"
.LeftFooter = "&""Times New Roman,Gras""&10 "
' .LeftFooter = "&""Times New Roman,Gras""&10&D"
.CenterFooter = "&""Times New Roman,Gras""AACSN - Dossier d'audit-valorisation"
.RightFooter = "&""Times New Roman,Gras""Page &P/&N"
End With
pro = 0
cpt = cpt + 1
ActiveSheet.Range("F1").Value = cpt
' '''''''''''''''
With ActiveSheet.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
' ''''''''''''''''
Next
' Call MacprotOUI

Sheets("Pag").Select
' With ActiveSheet.Select

ActiveSheet.Unprotect

' End With


End Sub