Re,
Dans la version 06 j'ai rajouté un code dans le composant ThisWorkbook qui à l'ouverture du classeur trie tous les tableaux structurés de l'onglet Paramètres et active par défaut l'onglet Enregistrement :
Private Sub Workbook_Open() 'à l'ouvertur du classeur
Dim OP As Worksheet 'déclare la variable OL (Onglet Paramètres)
Dim TS As ListObject 'déclare la variable TS (Tableau Structuré)
Dim PL As Range 'déclare la variable PL (PLage)
Set OP = Worksheets("Paramètres") 'définit l'onglet OP
For Each TS In OP.ListObjects 'boucle sur tous les tableaux structurés de l'onglet OP
Set PL = Range(TS.Name) 'définit la plage PL
PL.Sort PL.Columns(1), Header:=1 'tri la plage PL
Next TS 'prochain tableau structuré de la boucle
Worksheets("Enregistrement").Activate 'active l'onglet "Enregistrement"
End Sub
Cela permettra d'avoir les Équipes classées (et les autres aussi d'ailleurs).
Pour les Sites j'ai rajouté ce bout de code à la fin de Private Sub C4_Change() :
For I = 0 To C5.ListCount - 1 'boucle 1 : sur tous les élément de C5
For J = 0 To C5.ListCount - 1 'boucle 2 : sur tous les élément de C5
'si I est différent de J et l'élément I est inférieur à l'élément J, interverti les éléments
If I <> J Then If C5.List(I) < C5.List(J) Then T = C5.List(I): C5.List(I) = C5.List(J): C5.List(J) = T
Next J 'prochain élément de la boucle 2
Next I 'prochain élément de la boucle 1