Compter le nombre de page d'une feuille avant d'imprimer format pdf

Bonjour à tous,

Je souhaite compter le nombre de page imprimable d'une feuille du classeur avant de lancer une impression pdf via exportasfixedformat.

Le "comptage" semble fonctionner mais les critères From: et to: ne semblent pas être pris en compte

Vous verrez ci-dessous où j'en suis mais il ne m'imprime systématiquement qu'une feuille (même si "ça déborde") :

P.S. dans mon cas : c'est une feuille d'indicateurs avec des graphiques : mais ce qui déborde c'est un TCD

Merci de votre aide,

Jean-Christophe

Sub save()
Dim fichier As String, LaDate As String, nbF As Integer

LaDate = Format(Date, "yyyymmdd")

With Worksheets("SUPPLIER DASHBOARD")
'compte du nombre de page de la feuille
nbF = Worksheets("SUPPLIER DASHBOARD").HPageBreaks.Count + 1
msgbox nbF

'nommage du pdf
fichier = ActiveWorkbook.Sheets("SUPPLIER DASHBOARD").Range("D1").Value & " Service provider feedback " & " from " & LaDate & ".pdf"

'définition du chemin d'enregistrement
Chemin = Sheets("Accueil").Range("I12").Value & fichier

'export pdf
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, to:=nbF, OpenAfterPublish:=True

End With
End Sub

Bon le problème serait plus lié au TCD, car même en apercu avant impression, il n'affiche qu'une seule page

Quelqu'un à déjà rencontré ce problème ?