Sub TCD()
Dim i&, Plage As Range, Itm As String
Application.ScreenUpdating = False
Set Plage = Sheets("feuille 3").Range("B2:B10")
Sheets("feuille 2").PivotTables("TCD").PivotFields("Codes Communes").CurrentPage = _
"(All)"
For i = 1 To Plage.Count
Itm = Plage(i).Text
With Sheets("feuille 2").PivotTables("TCD").PivotFields("Codes Communes")
.PivotItems(Itm).Visible = True
End With
Itm = ""
Next i
Sheets("feuille 2").PivotTables("TCD").PivotFields("Codes Communes"). _
EnableMultiplePageItems = True
Application.ScreenUpdating = True
End Sub