Sub TRI()
'
' TRI Macro
' Macro enregistrée le 18/07/2007 par
'
'
Application.CommandBars("Stop Recording").Visible = True
Range("A19:U377").Sort Key1:=Range("G19"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub