Lister les onglets d'un ou plusieurs fichiers Excel

Bonjour Chères spécialistes de la VBA

afin de faire un comparatif de l'évolution des indices sur plusieurs onglets de deux fichiers excel, j'ai besoin d'une macro qui me liste les onglets de chaque fichier qui sont sauvegardés dans un endroit précis.

Concrètement, sur un fichier excel de comparaison, j'ai besoin d'une macro dans laquelle je renseigne l'emplacement de mes deux fichiers source et que la macro puisse me donner la liste des onglets avec leurs nom dans une colonne et dans une autre colonne l'indice de l'onglet (l'indice se trouve toujours dans la même cellule de l'onglet même). le résultat est donc 2 listes 1 pour chaque fichier ensuite à moi de faire la comparaison avec des MFC et les formules (pour la comparaison c'est assez simple je peux le faire mais la macro je bloque :( )

Voici un exemple de fichier simplifié :

modèle de fichier source où table1, table2 etc ce sont les noms de onglet d'un fichier et dans chaque onglet en G4 il y a l'indice correspondant

L'onglet "Liste indices" = tableau résultat souhaité

Je vous remercie d'avance pour votre aide

Hello,

Une proposition

Bonjour @Rag02700,

Merci pour cette macro qui marche parfaitement et pour les commentaires qui m'ont permis d'ajouter d'autres fonctionnalités (sujet résolu).

De mon coté j'ai fais un essai (basic à mon niveau :) ) si ça peut intéresser d'autres personnes. mon code ci-dessous il liste les onglets du fichier actif et donne l'indice (texte en G4 de chaque onglet)

Sub ListerToutesLesFeuilles()

Dim fc As Worksheet
Dim x As Integer
Dim y As Integer

x = 2
y = 2

Sheets("Liste indices").Range("A:A").Clear
Sheets("Liste indices").Range("B:B").Clear

For Each fc In Worksheets
     Sheets("Liste indices").Cells(x, 1) = fc.Name
     x = x + 1
     Sheets("Liste indices").Cells(y, 2) = fc.Range("G4")

     y = y + 1
Next fc

End Sub