Sub Worksheet_Activate()
Application.CutCopyMode = False
Range("Tableau1[[#All],[Ville]]").Select
ActiveWorkbook.Worksheets("TEST").ListObjects("Tableau1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("TEST").ListObjects("Tableau1").Sort.SortFields.Add _
Key:=Range("Tableau1[Ville]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Sheets("TEST").ListObjects("Tableau1").Sort
.Header = xlYes
.Apply
End With
[A1].Select
End Sub