Salut Tunisiano8,
OK je vais modifier la syntaxe.
Conernant le post d'hier pour trier des données, essaye çà chez moi çà marche:
Selection.Sort Key1:=Range("B2" ), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Merci de ton aide et joyeux noël