Pbl pour déplacer colonne suivant variable dans une cellule

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

Sub Tri_Horizontal()
'se lance par les touches Ctrl+T
Application.ScreenUpdating = False
On Error Resume Next 'si une recherche n'aboutit pas
With [A1].CurrentRegion
    .Rows(1).Find("Libelle UI", , xlValues, xlWhole).Offset(.Rows.Count) = 1
    .Rows(1).Find("circuit").Offset(.Rows.Count) = 2
    .Rows(1).Find("route").Offset(.Rows.Count) = 3
    Union(.Rows(.Rows.Count + 1), .Cells).Sort .Rows(.Rows.Count + 1), xlAscending, Orientation:=2 'tri horizontal
    .Rows(.Rows.Count + 1) = ""
End With
End Sub