[Tableau1].Sort _
Key1:=[A2], _
Order1:=xlAscending, _
Key2:="", _
Order2:=xlAscending, _
Key3:="", _
Order3:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal