Aficher noms des onglets

Salut,

J'aimerais afficher le nom de toutes les onglets sauf l'onglet INVOICE (une cellule = un nom d'onglet) en VBA.

P.S. il va y avoir plusieurs onglet a enlever du résultat.

Ce que j'ai pour l'instant

Sub getinvoice()
Dim f As Worksheet
Dim m As String
  For Each f In Worksheets
    m = m & f.Name & vbLf
  Next f

  ThisWorkbook.Worksheets("INVOICE").Range("A1") = m

End Sub

Voir le fichier excel si besoin. Merci.

Hello,

Le + simple :

Sub getinvoice()

    Dim f As Worksheet
    Dim m As String
    Dim ligne As Integer

    ligne = 1
    For Each f In Worksheets
        ' exclut la feuille INVOICE et la feuille Feuil21
        If f.Name <> "INVOICE" And f.Name <> "Feuil21" Then ThisWorkbook.Worksheets("INVOICE").Range("A" & ligne) = f.Name: ligne = ligne + 1
    Next f

End Sub

Merci Rag02700 ça fonctionne parfaitement!