Sub macrotri()
Dim a As Range
On Error Resume Next
Set plage = ActiveSheet.Range("C:C").SpecialCells(xlCellTypeConstants, 1)
For Each a In plage.Areas
a.Offset(, -1).Resize(, Range("B5").MergeArea.Count).Sort a, xlAscending, Header:=xlNo
Next
End Sub