Erreur 438 dans l'exécution d'un code qui fait un tri horizontal

Sub Tri()

' Tri Macro

'
    Columns("U:AU").Select
    ActiveWorkbook.Worksheets("Taux").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Taux").Sort.SortFields.Add2 Key:=Range("U2:AU2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Taux").Sort
        .SetRange Range("U1:AU274")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub