L'adaptation du code à mon cas s'est avéré plus compliqué que prévu. J'aurais voulu laisser mon fichier en pièce jointe pour que tu puisse regarder où mon code coince mais il est trop gros. Quand je l'actionne, une fenêtre m'indique que la méthode Sort de la classe Range a échoué.
Voici le code adapté :
Sub TriCroissant()
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name <> ("Meilleurs Temps""100 SF (2)""100 SF BI (2)""100 IS (2)""200 SF (2)""200 SF BI (2)""400 SF (2)""400 IS (2)""800 SF (2)""1500 SF (2)""Temps de Qualifications""Temps Partiels""Temps Intermédiaires""Relais") Then
Sh.Range("A5", "O34").Sort Key1:=Sh.Range("A5"), Order1:=xlAscending
End If
Next
End Sub
Il y a-t-il une erreur quelque part ?
Merci encore.