j ai cree un bouton avec
Private Sub CommandButton1_Click()
Columns('A:A').Select
Selection.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
voir fichier joint
a plus E et F [file name=trisalphas.zip size=10795]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/trisalphas.zip[/file]