Sub Essai2()
Dim i As Byte
Dim semaine As Integer
semaine = Sheets("4B").Range("U4").Value
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Sem")
For i = 1 To .PivotItems.Count
.PivotItems(i).Visible = False
Next i
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Sem")
.PivotItems("semaine").Visible = True
End With
End Sub