Sub Tri_alpha()
Range("Tableau95B").Select
ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Add2 _
Key:=Range("Tableau95B[Prénom]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort.SortFields.Add2 _
Key:=Range("Tableau95B[Nom]"), SortOn:=xlSortOnValues, Order:=xlAscending _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("5B").ListObjects("Tableau95B").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub