salut grecko, essaie cette methode que tu mettera dans la feuille ou est ton tableau comme ca des que tu ouvre la feuille, le tri se fait automatiquement de la cellule A7 a la derniere cellule de la colonne A.
Private Sub Worksheet_Activate()
Range('A7:A65536').Select
Selection.Sort Key1:=Range('A7'), Order1:=xlAscending, _
Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
end sub
bonne soirée.