Macro erreur d'éxécution '9'

Bonjour à tous,

Je me suis fait un fichier excel qui me permet, en extrayant des données de notre GMAO sur un tableau croisé dynamique, de suivre l'évolution de leurs statistiques (en l'occurence MTBF et MTTR).

J'ai voulu me faire une macro qui fait que lorsque j'appuie sur un bouton, la macro va aller appliquer le filtre "le mois dernier" au tableau croisé dynamique (pour avoir les stats que du mois derniers), dans un deuxième onglet les valeurs sont actualisées dans un simple tableau avec les statistiques des machines voulues (aves des renvoies de cellules toutes simples), puis ce tableau est copié dans un nouvel onglet (copie avec "valeurs et format source"), les machines sont triées dans l'ordre alphabétique, puis j'en fait des graphiques.

Le soucis ... c'est que lorsque j'éxécute la macro, elle s'arrête avant de faire le tri alphabétique et me dit gentiment "Erreur d'éxécution '9': L'indice n'appartient pas à la sélection". Je clique donc sur "débogage" et là j'ai ce que vous pouvez voir dans la photo qui apparaît.

Si quelqu'un pouvait m'aider ... je lui en serait très reconnaissant !

Pour info, voici le code complet de la macro :

Sub Graph_m_préc()
'
' Graph_m_préc Macro
'

'
Sheets("BD Live").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date_appel"). _
ClearLabelFilters
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date_appel"). _
PivotFilters.Add Type:=xlDateLastMonth
Sheets("Synthèse").Select
Range("B4").Select
ActiveWorkbook.RefreshAll
Columns("A:E").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Range("A1:B44").Select
Range("A4").Activate
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Feuil33").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil33").Sort.SortFields.Add Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil33").Sort
.SetRange Range("A2:B44")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D1:E44").Select
Range("D6").Activate
ActiveWorkbook.Worksheets("Feuil33").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil33").Sort.SortFields.Add Key:=Range("D6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil33").Sort
.SetRange Range("D2:E44")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("C:D").Select
Selection.Delete Shift:=xlToLeft
Columns("A:B").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil33'!$A:$B")
ActiveChart.ChartType = xlColumnClustered
ActiveChart.Legend.Select
Selection.Delete
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A:A,C:C").Select
Range("C1").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil33'!$A:$A;'Feuil33'!$C:$C")
ActiveChart.ChartType = xlColumnClustered
ActiveWindow.SmallScroll Down:=0
ActiveChart.Legend.Select
Selection.Delete
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.ChartArea.Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 4
ActiveWindow.SmallScroll Down:=-30
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("D1").Select
End Sub