Classement de 2 colonnes

Bonjour,

Pour trier tes feuilles par ordre croissant :

Sub TrierFeuilles()
Dim WS As Worksheet
Dim I As Byte
Application.ScreenUpdating = False
For Each WS In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub

Amicalement

Dan

Re,

Nad-Dan pour les onglets je ne sais pas faire mes competences se limite a quelques fonctions.

Vois le fichier joint dans lequel j'ai placé tes tableaux dans des onglets séparés et ajouté la macro de tri des onglets par odre alphabétique.

Dès que tu changeras ou ajouteras une valeur en colonne D de n'importe quel onglet, le tri sera effectué automatiquement.

Tu peux rajouter autant de données que tu veux vers le bas de ta feuille.

Fichier

Si ok, merci de mettre résolu sur le fil en utilisant la liste déroulante que tu trouveras en bas à gauche de ta première demande.

Amicalement

Dan

Merci Dan,

J' ai juste une derniere question. Tu m as donne la formule pour classer les onglets par ordre Aplhabetique mais ca ne marche pas.