Classer et regrouper des données

Application.ScreenUpdating = False
cc = Columns.Count
Range(Columns(7), Columns(cc)).Delete 'RAZ
[1:2].Insert '2 lignes auxiliaires pour le tri
For i = 0 To UBound(a)
  If i + 7 > cc Then MsgBox "Feuille insuffisante...": Exit For
  x = a(i)
  For j = 1 To Len(x)
    If IsNumeric(Mid(x, j)) Then Exit For
  Next
  [G1].Offset(, i) = Left(x, j - 1)
  [G2].Offset(, i) = Mid(x, j)
  [G3].Offset(, i) = x
  s = Split(Mid(b(i), 2), Chr(1))
  [G4].Offset(, i).Resize(UBound(s) + 1) = Application.Transpose(s)
Next
With Range(Columns(7), Columns(cc))
  .Sort [G1], 1, [G2], , 1, Orientation:=xlLeftToRight 'tri sur 2 lignes
  .AutoFit 'ajustement automatique des colonnes
End With
[1:2].Delete