Bonjour à tous,

J'ai une macro qui me permet de trier des données avec ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
With ActiveSheet
    .Cells(Cells.Rows.Count, Lastcol + 1).End(xlUp).Sort , Key1:=.Cells(34, Lastcol + 1), Order1:=xlDescending, Header:=xlYes
    .Rows("34:37").Copy ThisWorkbook.Worksheets("CPN1").Range("A3")
End With
Inutile de vous dire qu'il y a des lignes de codes avant et aprés. Mon souci c'est qu'un message d'erreur (erreur 1004) apparait lorsque j'exécute la macro, et le message d'erreur est : "cette opération requiert que les cellules fusionnées soient de taille identique"

Sachant que mes donnés se trouvent à partir de la ligne 34 et les cellules fusionnées se trouvent plus haut .

Une solution ? ( a part supprimer la fusion des cellules )

Merci par avance$
Cordialement,
Freudsw