Erreur 91

Bonjour,

J'utilise VBA depuis peu à l'aide du "Développeur" intégré à Excel pour mettre en place un outil de suivi pour une association.
La formule suivante (extraction de la feuille "Journal", copie, tri et sous totaux fonctionne dans 2 autres feuilles excel mais bloque dans la feuille "S. Totaux" sur la ligne :

<gras>ActiveWorkbook.Worksheets("S.Totaux").AutoFilter.Sort.SortFields.Clear

accompagné de la mention : "erreur d'exécution "91" variable objet ou variable bloc With non définie"

Après avoir longuement consulté les indications et les recommandations des internautes de ce site, je me tourne vers vous pour me sortir de cette ornière. Car je n'arrive pas à faire identifier la plage à traiter par VBA.
Si l'un ou l'une d'entre vous veut bien m'éclairer, voire me dépanner, Merci d'avance.

Ci-après la macro rédigée par le "Développeur"

Sub Macrosoustotaux()
'
Range("A4:C220").Select
Selection.Rows.Ungroup
Selection.Rows.Ungroup

Sheets("Journal").Range("A2:R200").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A3:R3"), Unique:=False
Range("A3:R3").Select
Selection.AutoFilter

ActiveWorkbook.Worksheets("S.Totaux").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("S.Totaux").AutoFilter.Sort.SortFields.Add Key:= _
Range("H3:H200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal

With ActiveWorkbook.Worksheets("S.Totaux").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3:R200").Select

Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(7, 10, 11, _
14, 15, 18), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

End Sub