bonjour
cette macro devrait te convenir.elle trie dans l'ordre croissant la range("a1") etant la reference.
Sub Macro1()
With Application.CommandBars("Data")
.Controls("&Trier...").Enabled = False
Sheets(1).Cells.Sort Cells(1, 1)
.Controls("&Trier...").Enabled = False
End With
End Sub
si tu veux plus d'info demande.
bye