Formule excel donnant la valeur de " sheets(x).PageSetup.CenterHeader"

'Cette fonction lit pour la feuille passée en paramètre, la partie H de l'entête (V="Header") ou du pied de page (V="Footer") passé en paramètre
Public Function LireTetePiedPage(Feuille As String, V As String, H As String) As String
Const PosHeader = "Header"
Const PosFooter = "Footer"
Const PosLeft = "Left"
Const PosRight = "Right"
Const PosCenter = "Center"

'Verification de l'existence de la feuille
    If Not FeuilleExiste(Feuille, ActiveWorkbook) Then
     LireTetePiedPage = "Erreur : """ & Feuille & """ n'est pas connue"
     Exit Function
    End If

'S'il y a une erreur dans les valeurs de V et H la valeur retournées est "Position inconnue"
LireTetePiedPage = """" & V & """ et """ & H & """ sont des positions inconnues."
    
    With Sheets(Feuille).PageSetup
        Select Case V
        Case PosHeader
            Select Case H
               Case PosLeft
                   LireTetePiedPage = .LeftHeader
               Case PosCenter
                   LireTetePiedPage = .CenterHeader
               Case PosRight
                   LireTetePiedPage = .RightHeader
            End Select
        Case PosFooter
            Select Case H
               Case PosLeft
                   LireTetePiedPage = .LeftFooter
               Case PosCenter
                   LireTetePiedPage = .CenterFooter
               Case PosRight
                   LireTetePiedPage = .RightFooter
            End Select
        End Select
    End With

End Function

=LireTetePiedPage("NomD_UneFeuille";"Header";"Center")