Sub Tri_Horizontal()
Dim Rng As Range
Set Rng = Selection
For Each c In Rng.Rows
If Application.CountA(c) = 1 Then
c.Sort Key1:=c.Cells(1, 1), Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortRows
End If
Next c
Rng.Columns.AutoFit 'facultatif
End Sub