Macro trier

Bonjour à tous,
J'ai de nouveau un problème de macro.
j'ai cette macro
ActiveSheet.Range("$S$5:$t$312").AutoFilter Field:=2, Criteria1:="Bleus"
ActiveSheet.Range("S7:S317").Select
Selection.Copy
Sheets("Bleus").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Cumulatif").Select
ActiveSheet.Range("$S$5:$T$312").AutoFilter Field:=2
Range("R5").Select

Lorsque j'exécute manuellement ces fonctions , tout marche très bien.
Lorsque je demande à la macro de le faire automatiquement il me met le message d'erreur suivant:

"Cette opération requiert que les cellules fusionnées soient de taille identique"

Mais elle fonctionne très bien quand je fais toute la démarche manuellement

Quelqu'un a une idée.

Merci