Comment savoir le nombre de pages qui va être imprimé à partir d'une feuille ? Cela me permettra de faire une numérotation de pages qui affiche Num page/nb total de pages

Avec xl2007: ThisWorkbook.Worksheets(1).PageSetup.Pages.Count
Avec les versions antérieures cette fonction n'existe pas. le plus simple : recourir aux bonnes vieilles macros XL4 (toujours fonctionnelles, même dans XL2007)

sub testImp()
 MsgBox "Votre édition comportera : " _
 & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") _
 & " feuille(s)"
 end sub

Cette ligne NbPages = (Sheets(1).HPageBreaks.Count + 1) * (Sheets(1).VPageBreaks.Count+ 1)
fonctionne très bien... sauf si tu as des données discontinues du genre des données en A1:A100 et en AA1:AA30. Essaie ceci si tu imprimes en format paysage et que tu limites la largeur à une page

Private sub Workbook_BeforePrint(Cancel As Boolean)
 Dim Sh As Worksheet
 For Each Sh In ActiveWindow.SelectedSheets
 With Sh.PageSetup
  .Orientation = xlLandscape
  .Zoom = False
  .FitToPagesWide = 1
  ' .CenterFooter = "&P & "" page"" /&N & "" Pages"
  'OU
  .CenterFooter = "&P/&N"
 End With
 Next
 end sub