Dim DerniereValeurAffichée As String, PremiereValeurAffichée As String
With Sheets("Charge Réelle Disponible").PivotTables("ChargeRéelleGlobale").PivotFields("Semaine")
.ClearLabelFilters
PremiereValeurAffichée = .PivotItems(.PivotItems.Count - 6)
DerniereValeurAffichée = .PivotItems(.PivotItems.Count)
.PivotFilters.Add Type:=xlCaptionIsBetween, Value1:=PremiereValeurAffichée , Value2:=DerniereValeurAffichée
End With