Sub tri()
Static TriMarque As Boolean
If Not TriMarque Then
Range("e3").CurrentRegion.Sort key1:=Range("g3"), Order1:=xlAscending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
Else
Range("e3").CurrentRegion.Sort key1:=Range("e3"), Order1:=xlAscending, _
key2:=Range("f3"), Order2:=xlAscending, _
key3:=Range("f3"), Order3:=xlAscending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
End If
TriMarque = Not TriMarque
End Sub