Re : rangement colonne a ouverture fichier ...
salut
a mettre dans le Workbook_Open
Private Sub Workbook_Open()
Range("B1:B" & Range("B65536").End(xlUp).Row).Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1").Select
End Sub