Sub Tri_Horizontal()
Application.ScreenUpdating = False
On Error Resume Next 'si une recherche n'aboutit pas
With [A7].CurrentRegion
.Rows(1).Find("Libelle UI", , xlValues, xlWhole).Offset(-1) = 1
.Rows(1).Find("circuit").Offset(-1) = 2
.Rows(1).Find("route").Offset(-1) = 3
Union(.Rows(0), .Cells).Sort .Rows(0), xlAscending, Orientation:=2 'tri horizontal
.Rows(0) = ""
End With
End Sub