[VBA] Trier un tableau avec lignes fusionnées

Bonjour,

J'aimerais trier un tableau par un groupes de 6 lignes (intégrant plusieurs collonnes, environ 100). Seulement sur ces lignes il y a des cellules fusionnées de différentes manières (groupe de 2 / 3 / 4, sur 1 / 2 lignes).

J'ai réutilisé le code source suivant, trouvé sur(http://frederic.sigonneau.free.fr/code/Tris/TrierPlusieursPlages.txt) :

Sub TrierParPlages5()
' tri en une seule passe
Dim i%

  i = 1
  Do While i < Range("A65536").End(xlUp).Row
    If Not IsEmpty(Range("A" & i)) Then
      Range("A" & i).Sort Range("A" & i) 'cols A:D
      i = i + Range("A" & i).CurrentRegion.Rows.Count
    Else: i = i + 1
    End If
  Loop
End Sub 

J'ai fait un test sur des groupes de lignes identiques et cela fonctionne très bien. Mais, intégré dans mon programme cela me donne le message suivant:
Cette opération requiert que les cellules fusionnées soient de taille identique.

Comment puis-je faire pour trier mes groupes de lignes sans avoir ce message ?

Merci pour votre aide.
Stefan