bonjour Laurent
pour la premiere partie de ta question tu peux essayer :
( dans cet exemple la feuille est nommée 'Stats" )
Sub BoucleFeuilles()
Dim I As Byte, j As Byte, X As Byte
Dim WS As Worksheet
Application.ScreenUpdating = False
For Each WS In ActiveWorkbook.Sheets 'boucle pour trier les feuilles par ordre alphabetique
For X = 2 To ActiveWorkbook.Sheets.Count
If Sheets(X - 1).Name > Sheets(X).Name Then
Sheets(X - 1).Move After:=Sheets(X)
End If
Next
Next
For I = 1 To Sheets.Count 'boucle pour recuperer les données
If Not Sheets(I).Name = "Stats" Then ' adapter le nom de la feuille
j = j + 1
Sheets("Stats").Cells(j, 1) = Sheets(I).Cells(1, 1)' adapter le nom de la feuille
Sheets("Stats").Cells(j, 2) = Sheets(I).Cells(1, 2)' adapter le nom de la feuille
End If
Next I
Application.ScreenUpdating = True
End Sub
par contre je n'ai pas compris la deuxieme partie de ton message
bonne journée
MichelXld