Option Explicit Sub test() Const n°L As Long = 1 'Ligne à copier Dim wbk As Workbook 'Nouveau fichier Dim wsh As Worksheet 'Feuille Dim rng As Range 'Plage à copier Dim cel As Range 'Cellule de destination 'Créer un nouveau classeur Set wbk = Application.Workbooks.Add(xlWBATWorksheet) 'Définir la première cellule de destination des résultats Set cel = wbk.Worksheets(1).Range("A1") 'Mettre en place les titres de colonne cel.Value = "Onglet" cel.Offset(0, 1).Value = "Lignes n° " & n°L cel.Resize(1, 2).Font.Bold = True 'définir la prochaine cellule de destination (cellule en dessous) Set cel = cel.Offset(1) 'Analyser chaque onglet du classeur For Each wsh In ThisWorkbook.Worksheets 'Écrire le nom de l'onglet dans la cellule de destination cel.Value = wsh.Name With wsh 'Définir la plage utilisées de la ligne à copier Set rng = .Range(.Cells(n°L, 1), .Cells(n°L, .Columns.Count).End(xlToLeft)) 'Copier cette plage vers la cellule à coté de la cellule de destination rng.Copy Destination:=cel.Offset(0, 1) End With 'définir la prochaine cellule de destination (cellule en dessous) Set cel = cel.Offset(1) Next wsh End Sub