Afficher le nom des onglets entre la premiere et la derniere feuille

Salut Greg !

Ci-après, copie de la macro, faisant parie de l'application "Moa's Selections", que tu peux trouver en zone téléchargement, rubrique Utilitaire.

Sub Sommaire()
Dim x As Integer
Dim ws As Worksheet
Sheets("Sommaire").Activate
Range("A1").Activate
x = 1
For Each ws In Worksheets
Cells(x, 1) = ws.Name
x = x + 1
Next
End Sub

Il te suffit de l'adapter à ta dernière feuille !

@ +

Moa

Merci de ta reponse je vais essayer