Bonjour,

Je souhaiterais classer uniquement les feuilles nommées (NOM PRENOM) par ordre alphabétique.
La première est nommée Récap, les suivantes sont nommées DD MM YY, et elles restent en place en premier.

En pas à pas je lis Next sans For Mais je ne sais pas ce que le code attend.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub TriChaqueFeuille()
Dim X As Variant
Dim I As Variant
Dim ws As Worksheets
'Trier par ordre alphabétique toutes les feuilles (nominatives)de ce fichier
'sauf la feuille "Récap" et les feuilles nommées numériques
 
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
 
For Each ws In Worksheets
    If ws.Name <> "Récap" And Not IsNumeric(Left(ws.Name, 2)) Then
Next ws
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub
Merci de votre aide.