Figer les slicers

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Dim Pt As PivotTable
Dim x As Slicer
Set Pt = Me.PivotTables(1)
Set x = Target.Slicers(1)
'Tu choisis les propriétés Left Et top de
'la cellule que tu désires...
x.Shape.Left = Me.Range("D8").Left
x.Shape.Top = Me.Range("D8").Top
'x.Width = si besoin
End Sub

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Dim Sl As Slicer
For Each Sl In Target.Slicers
    With Sl.Shape
        .Height = 48.188976378
        .Width = 141.7322834646
        .Left = Me.Range("A1").Left
        .Top = Me.Range("A1").Top
    End With
Next
End Sub

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Dim Sl As Slicer
Select Case LCase(Target.Name)
    Case Is = "toto"
        For Each Sl In Target.Slicers
            With Sl.Shape
                .Height = 48.188976378
                .Width = 141.7322834646
                .Left = Me.Range("A1").Left
                .Top = Me.Range("A1").Top
            End With
        Next
    Case Is = "titi"
        For Each Sl In Target.Slicers
            With Sl.Shape
                .Height = "à définir"
                .Width = "à définir"
                .Left = "à définir"
                .Top = "à définir"
            End With
        Next
    Case Is = "tata"
        For Each Sl In Target.Slicers
            With Sl.Shape
                .Height = "à définir"
                .Width = "à définir"
                .Left = "à définir"
                .Top = "à définir"
            End With
        Next
End Select
End Sub