Sub Grouper()
Dim a As Range
On Error Resume Next
Rows.Hidden = False 'affiche tout
Rows.Ungroup
For Each a In Columns(1).SpecialCells(xlCellTypeBlanks).Areas
a.EntireRow.Group
Next
End Sub
Sub Degrouper()
On Error Resume Next
Rows.Hidden = False 'affiche tout
Rows.Ungroup
End Sub
Sub Tri()
Degrouper
With ListObjects(1).Range 'tableau structuré
.Sort .Columns(3), xlAscending, .Columns(11), , xlAscending, Header:=xlYes 'tri sur les 2 colonnes C et K
End With
End Sub