'---tri---
If lig = 0 And ActiveCell.Interior.ColorIndex = 5 And ActiveCell.Column < 11 Then 'cellule bleue en colonnes A:J
Application.ScreenUpdating = False
With ActiveCell(2).CurrentRegion.EntireRow
.Columns(2).UnMerge 'défusionne les cellules
.Sort ActiveCell, xlAscending, Header:=xlNo
For Each c In .Columns(2).Cells: c.Resize(, 5).Merge: Next 'refusionne les 5 cellules
End With
End If