Sub TierSurCode()
'
' TierSurCode Macro
' Macro enregistrée le 01/08/2008 par LUI
'
If ActiveSheet.Name <> "Table 2" Then Sheets("Table 2").Activate
Range("B5").Select
Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub