Erreur 1004

Bonjour,
Cette macro ne fonctionne plus j'aurais besoin d'aide merci.
Sub FiltreSynthesePlanactions()
'
' FiltreSynthesePlanactions Macro
'

'
Sheets("Suivi des actions").Range("A50:Q50").Select
ActiveSheet.Range("$A$50:$Q$1202").AutoFilter Field:=23, Criteria1:="1"
ActiveWorkbook.Worksheets("Suivi des actions").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Suivi des actions").AutoFilter.Sort.SortFields.Add _
Key:=Range("K4:K1202"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Suivi des actions").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub