Trier les onglets

Bonjour le forum

Est t'il possible d'avoir le tri en A1 .

Il y a déjà une macro mais qui ne trie pas

Merci.

Bonjour

En premier, tu ajoute une espace avant "sommaire" dans le nom de l'onglet "sommaire"

Private Sub Worksheet_Activate()
'On trie les onglets par ordre alphabétique
Dim X As Variant
Dim I As Variant
For Each X 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

'On établi la liste de validation
For n = 1 To Sheets.Count
  If Sheets(n).Name <> "Sommaire" Then
     liste = liste & Sheets(n).Name & ","
  End If
Next
With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=liste
    End With
End Sub

Cordialement

Merci Amadéus,c'est parfait.