Appliquer une maco a plusieurs feuilles contenant un TCD

Option Explicit
Sub test()
Dim ws As Worksheet, pt As PivotTable, pf As PivotField
For Each ws In Worksheets
    With ws
        If .PivotTables.Count > 0 Then
            For Each pt In .PivotTables
                With pt
                    .EnableWizard = False
                    .EnableDrilldown = False
                    .EnableFieldList = False
                    .EnableFieldDialog = False
                    .PivotCache.EnableRefresh = False
                    For Each pf In .PageFields
                        With pf
                            .DragToPage = False
                            .DragToRow = False
                            .DragToColumn = False
                            .DragToData = False
                            .DragToHide = False
                        End With
                    Next pf
                End With
            Next pt
        End If
    End With
Next ws
End Sub

Sub RestrictPivotTable()
Dim pf As PivotField
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.PivotTables.Count > 0 Then
            With ActiveSheet.PivotTables(1)
                .EnableWizard = False
                .EnableDrilldown = False
                .EnableFieldList = False
                .EnableFieldDialog = False
                .PivotCache.EnableRefresh = False
            
                For Each pf In .PageFields
                        pf.DragToPage = False
                        pf.DragToRow = False
                        pf.DragToColumn = False
                        pf.DragToData = False
                        pf.DragToHide = False
                Next pf
            End With
        End If
    Next
End Sub

 (bouton: #) pour éditer tes codes.

[Edition] Hello Pierrot:)