XL 2016 TCD VBA: récupérer la position d'un champ

Sub test()
Dim l_o_pt As PivotTable
Dim l_o_ptField As PivotField
Dim l_l_position As XlPivotFieldOrientation
    
    Set l_o_pt = Feuil1.PivotTables("TCD_Test")
    Set l_o_ptField = l_o_pt.PivotFields("Société")
    
    l_l_position = l_o_ptField.Orientation
    
    If l_l_position = xlPageField Then
        MsgBox "Le champ '" & l_o_ptField & "' est placé en 'filtre'."
    ElseIf l_l_position = xlRowField Then
        MsgBox "Le champ '" & l_o_ptField & "' est placé en 'ligne'."
    End If
    
End Sub