Macro trier

[breeze]

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

 

[lanoe]

Re : Macro trier

Bonjour,

Pas évident de répondre sans fichier... un piste enlever l'ensemble des cellules fusionner sur la feuille... éventuellement joindre un petit fichier sans infos confidentielles sur le forum.

Lanoe