Sub Tri()
With Worksheets("Feuil1")
For lig = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(lig, 1) <> "" Then
.Cells(lig, 2).Resize(1, 7).Sort Key1:=.Cells(lig, 2), order1:=xlAscending, Header:=xlNo, Orientation:=xlLeftToRight
End If
Next lig
End With
End Sub