Comment garder le nom des feuilles dans des variables permanentes

Bonjour

Dans un module

Public Type stockage
Nombre As Integer
Nom(1 To 100) As String
End Type

Public feuille As Worksheet
Public mesfeuilles As stockage

Sub gogogo()

mesfeuilles.Nombre = 0
For Each feuille In Worksheets
mesfeuilles.Nombre = mesfeuilles.Nombre + 1
mesfeuilles.Nom(mesfeuilles.Nombre) = feuille.Name
Next
For i = 1 To mesfeuilles.Nombre
MsgBox mesfeuilles.Nom(i)
Next

End Sub

tous les noms de tes feuilles seront stockés dans l'objet Mesfeuilles

ca ne marche pas ca me met instruction incorrecte dans la procedure sur Public type stockage

tu as bien mis ca dans un module?????????