Sub Insérer()
[A:A].ClearContents: [K:L].ClearContents: N = 2
[A1] = "N° de commande"
Application.ScreenUpdating = False
For Each F In Worksheets ' pour toutes les feuilles
If F.Name <> "Suivi commande" Then ' Hormi feuille de suivi
DLSuivi = 1 + [A65500].End(xlUp).Row ' Première ligne vide
DL = Sheets(F.Name).[A65500].End(xlUp).Row ' Dernière ligne occupée de la feuille
tablo = Sheets(F.Name).Range("A1:A" & DL) ' Mettre la liste dans un tableau et la coller
Cells(DLSuivi, "A").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
Cells(N, "K") = F.Name: Cells(N, "L") = UBound(tablo, 1): N = N + 1
End If
Next F
Cells(1, "K") = "Suivi de commande": Cells(1, "L") = [A65500].End(xlUp).Row - 1
End Sub