Probleme avec GetPivotData

Bonjour, j'ai un probleme avec l'utilisation de la fonction GetPivotData.
Il me renvoit l'erreur 1004 : "Application defined or object-defined error"

Les parametre de ma fonction ainsi que mes variables me semble bien ecrites, je ne vois pas ce qui ne va pas..


Private Sub CommandButton1_Click()

Dim ws As Worksheet
Dim StartingHour As Integer
Dim EndingHour As Integer
Dim IntervalTime As String
Dim DayEvent As Integer
Dim ResultPivot As Range
Dim TimeSpent As Integer
Dim pvt As PivotTable


DayEvent = 1
StartingHour = 11
EndingHour = 14

IntervalTime = Format(StartingHour, "00") & "00/" & Format(EndingHour, "00") & "00"


Set ws = Worksheets("Pivot")
Set pvt = ws.PivotTables(1)
ws.EnablePivotTable = True
Set ResultPivot = pvt.GetPivotData("Time spent on the release", "Frequency", DayEvent, "Time of release", IntervalTime)


TimeSpent = ResultPivot.Value
MsgBox TimeSpent

End Sub

Merci d'avance pour votre aide et vos propositions...