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/TrierPlusieu­rsPlages.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