Bonjour à tous,

J'ai écrit une routine de tri qui est la suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Trier_par_tirage()
ActiveSheet.Unprotect
Range("B5:I84").Sort Key1:=Range("E5"), Order1:=xlAscending, _
Key2:=Range("B5"), Order2:=xlAscending, _
Key3:=Range("C5"), Order3:=xlAscending
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Cette routine est appelée depuis plusieurs feuilles du classeur. Elle fonctionne très bien depuis la première feuille, mais si je change de feuille avant de l'appeler, j'ai une erreur 1004 "Cette opération requiert que les cellules fusionnées soient de taille identique". Or je n'ai pas de cellules fusionnées dans la plage de tri.

Quelqu'un peut-il m'aider à résoudre mon problème ?

Merci.

Thierry