Mettre dans cellule le nom d'onglet non actif

Bonjour,
Faire une boucle sur les feuille (WorkSheets.count)
Tester que ce n'est pas le nom de la feuille active
if Sheets(i).Name<> activeSheet.name then AJOUTER LA FEUILLE
A+
EDIT:

Sub AffiFeuille()
Dim a As String, i As Integer, L As Long
a = ActiveSheet.Name
L = 2
    For i = 1 To Worksheets.Count
        If Sheets(i).Name <> a Then
            Cells(L, 1) = Sheets(i).Name
            L = L + 1
        End If
    Next i
End Sub

N'y a t'il pas plus simple que de passer par une macro ?
la formule que j'ai trouvé pour appliquer sur un onglet actif est :
=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;32)
or je voudrais l'utiliser pour copier le non d'un onglet non actif.

Merci

Bonjour

On peut passer autrement que par macro, mais est-ce plus simple là est la question

Menu Insertion / Noms / Définir
le nom : Feuille
la Formule : =LIRE.CLASSEUR(1)

Ceci est une Macro ExcelIV qui recupère les noms et crée une table

Pour afficher le nom d'une feuille : en Gras le n° de la feuille à afficher
=STXT(INDEX(classeur;1);CHERCHE("]";INDEX(classeur;1))+1;20) & INDIRECT("IV1")

Attention, le INDIRECT("IV1") est Obligatoire, c'est une Fonction Volatile qui permet le Recalcule de la Formule, donc de la plage en cas d'ajout de feuille

Voici un exemple des possibilités de cette solution : Un recherche Multifeuille sans Macro VBA : insertion de feuilles, deplacement, Suppression, tout est automatiquement géré
https://www.cjoint.com/?leiGqnHe7J

Âpres une petite correction ca marche super
voici la formule =STXT(INDEX(feuille;1);CHERCHE("]";INDEX(feuille;1))+1;20) & INDIRECT("IV1")
il faut mettre feuille dans la formule au lieu de classeur.

Merci beucoup