Re Bonsoir
J'ai trouver avec recherche
Sub Trier()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
merci a celui qui la écrit, je me souvien pas du nom
Il est formidable ce Forum
a + alyre