Liste onglets

Bonjour,

j'ai envie de créer une liste avec les nom de mes onglets ce que j'ai réussi à faire avec ce code:

Sub ListeOnglets()

    Range("A1").Select
    ActiveCell.Value = "Liste des onglets"
    For i = 1 To Worksheets.Count
         [a1].Offset(i, 0).Value = Worksheets(i).Name
    Next i
End Sub

Le problème, c'est que pour mettre à jour cette liste je suis obliger de cliquer sur un bouton j'aurais voulu que cela ce fasse automatiquement, de plus j'aurais aimé que cette liste apparaisse dans l'onglet paramétrage.

merci,

Re bonjour

Un essai. Te convient-il ?

merci