XL 2016 paramètres pied de page RESOLU

[dg62]

Bonjour le Forum,
RESOLU UNE HISTOIRE DE GUILLEMETS
Mon problème :
libel est une variable qui reprend le nombre d'impressions par rapport au total demandé ( 2 de 4) par exemple.
dans la ligne .Leftfooter = "&""" & police & ",normal""" & "&" & taille & libel, libel est tronqué ( de 3) mais affiché dans la bonne taille
dans .LeftFooter = libel, libel n'est pas tronqué (2 de 2) mais ne prend pas en compte la police et la taille.
Avez-vous une explication ?
pourquoi la définition de la police et taille n'est pas reprise par défaut sur la 2eme ligne ?
Merci

Sub Imprimer()
Dim n As Integer
Dim libel As String
Dim police As String
Dim taille As String
Dim pge As Integer

'détermination police et taille
police = "Arial"
taille = 1

n = Application.InputBox("Nombre de copies :", "Imprimer", 1, , , , , Type:=1)
Application.EnableEvents = False
With ActiveSheet
For pge = 1 To Val(n)
libel = " " & pge & " de " & n
MsgBox (libel)
    With .PageSetup

       .Leftfooter = "&""" & police & ",normal""" & "&" & taille & libel
       .LeftFooter = libel
    End With
.PrintPreview
'.PrintOut
Next
End With
Application.EnableEvents = True
End Sub