XL 2019 Recupérer tous les noms des onglets

Eric C à dit:

Bonjour le forum
Bonjour Merlin258413

Le plus simple (inclue la feuille Recap) :

VB:

Option Explicit

Sub Récap_Liste()
Dim i As Integer

    [A1].Select

    For i = 1 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

End Sub

Bonne journée à toutes & à tous
@+ Eric c

Cliquez pour agrandir...