Re : Tri sans activer
Bonsoir,
Essaie :
With Sheets("services")
.Range("A2:A100").Select
Selection.Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
c'est à dire en décomposant la sélection
Bon courage