Merci bcp ccpapy
ca correspond à ce que je veux mais une erreur s'affiche
Ca me dis erreur de syntaxe dans ceci :
'sélectionne le tableau jusqu'à la dernière cellule et effectue un tri alphabétique
Range('A3:H' & Range('A65536').End(xlUp).Row).Select
Selection.Sort Key1:=Range('A3'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'DataOption1:=xlSortNormal
Tu sais de quoi ca pourrait venir ???