Je vais d'essayer ton code, malheureusement Sylvain, il se produit une erreur d'exécution 1004, "la méthode Sort de la classe range à échoué"
pour m'aider, voici mon code:
Sub Tri()
'
' Tri Macro
' Macro enregistrée le 04/10/2004 par Archi
'
' sheets("Données").unprotect
Range("B17:U116").Select
Selection.Sort Key1:=Range("B11"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Données").Protect
End Sub