Private Sub Workbook_Open()
Application.Visible = False
With Feuil1.ListObjects("TabBDD").Sort
.SortFields.Clear
.SortFields.Add Key:=[TabBDD[Site]], SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply: End With
UFmGestVéhic.Show
End Sub