Copier le noms de plusieurs feuille sur une liste

bonjour a tous , j'aimerais savoir s'il y a moyen de copier les noms de toutes les feuilles sur une ligne avec plusieurs colonnes ?

Merci d'avance .

Bonjour Yassine, bonjour le forum,

essaie comme ça (ligne à adapter) :

Sub Macro1()
Dim I As Byte

For I = 1 To Sheets.Count
    Sheets("Feuil1").Cells(1, I).Value = Sheets(I).Name
Next I
End Sub

p.s. Pour ton problème d'hier, désolé mais je ne comprends pas il faudrait une pièce jointe et des explications plus claires...