Bonsoir Gruick
Suite à ton conseil j'ai fais ça :
Sub TriExtract()
Range('ExtractEnseigne').Select
Selection.Sort Key1:=Range('AB2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range('ExtractSociete').Select
Selection.Sort Key1:=Range('AC2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
.....
End Sub
Pour les 5 champs et je l'ai mis dans l'USF en initialisation... ca marche et c'est rapide.
Merci encore et @+