[SIZE=3][FONT=Times New Roman]Sub essai()[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]If Left(Application.Version, 1) = 9 Then[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] Call v2000[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Else: Call v2003[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End If[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End Sub[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Sub v2000()[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Range("A1:A7").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End Sub[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Sub v2003()[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Range("A1:A7").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] [B][COLOR=blue]DataOption1:=xlSortNormal[/COLOR][/B][/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3]End Sub[/SIZE][/FONT]