bonjour
dans cette procedure (this workbook)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
With Sh.PageSetup
        .CenterHeader = "&""Calibri,gras""&14 xxxxx" & Chr(10) & Chr(10) & "Bordereau  N°  " & Sheets("Bordereau").Range("A3").Value & "    " _
                        & " Récapitulatif " & " (" & Application.WorksheetFunction.CountA("Bordereau!F4:F18") & ")"
        
        End With
excel me retourne toujours 1 comme valeur dans l'en tete
je ne comprends plus
merci