Erreur d'exécution 424 Objet requis

Bonjour à tous !

J'ai un classeur qui comporte 10 feuilles

Dans la feuille 1 en A1 j'ai Nom et en B1 j'ai User.

Je voudrais que les des différentes feuilles s'affichent sur la ligne 1 a la suite de user (B1).

J'ai essayé le code suivant :

Sub essai ()

Dim lc as integer, n as integer

Dim s as worksheet

Set s = sheets ("feuil1")

Lc = s.range("A"& columns.count).end(xltoleft). Column

For n = 1 to worksheets.count

Cells (lc,1) = worksheets (n). Name

Next n

Set s = nothing

Quelqu'un aurait une solution pour moi?

Cordialement !

PS. Je met le fichier exemple en pièce jointe

Bonjour,

Sub essai()

Dim Lc As Integer, N As Integer
Dim S As Worksheet

    Set S = Sheets("Feuil1")
    With S
         Lc = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
         For N = 1 To Worksheets.Count
             .Cells(1, Lc) = Worksheets(N).Name
             Lc = Lc + 1
         Next N
    End With
    Set S = Nothing

End Sub

Merci Éric pour ta réponse.

Elle m'a vraiment été d'un grand secours

🙏🙏🙏