[vba] utiliser le numéro de page d'une feuille

Sub PrintGroupNumPages()
Dim Exclu
Dim S As Object 'on déclare Object pour prendre en compte WorkSheet et Graph
Dim i&
Dim cpt%
Dim bool As Boolean
Dim T()
'### A adapter (liste des feuilles à ne pas imprimer) ###
Exclu = Array("Exposé", "Pas d'impression")
'########################################################
For Each S In ActiveWorkbook.Sheets
  bool = False
  For i& = LBound(Exclu) To UBound(Exclu)
    If S.Name = Exclu(i&) Then
      bool = True
      Exit For
    End If
  Next i&
  If Not bool Then
    cpt% = cpt% + 1
    ReDim Preserve T(1 To cpt%)
    T(cpt%) = S.Name
    S.PageSetup.CenterFooter = "Page " & "&P" & "/" & "&N"
  End If
Next S
Sheets(T).Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Sub PrintGroupNumPages()
Dim S As Object 'on déclare Object pour prendre en compte WorkSheet et Graph
Dim i&
Dim cpt%
Dim T()

For Each S In ActiveWorkbook.Sheets

    cpt% = cpt% + 1
    ReDim Preserve T(1 To cpt%)
    T(cpt%) = S.Name
    S.PageSetup.CenterFooter = "Page " & "&P" & "/" & "&N"

Next S

End Sub

Exclu = Array("Exposé", "Pas d'impression")

Sheets(T).Select