Bonjour,
On va faire des économies... Remplace toute la macro par cette autre :
Sub TriSurstock(Optional S$)
With WsS.Range("A1").CurrentRegion
.Sort Key1:=.Range("B1"), Key2:=.Range("C1"), Header:=xlYes, _
OrderCustom:=1, Orientation:=xlTopToBottom
End With
End Sub
Il faudra sans doute faire la même chose dans la V8...
A+