Sub trirange()
ActiveWorkbook.Worksheets("Adhérents").ListObjects("ListeAdherent").Sort.SortFields.Clear
With ActiveWorkbook.Worksheets("Adhérents").ListObjects("ListeAdherent").Sort
.SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin
.Apply
End With
End Sub