Salut JC !
Voilà le début du boulot, pour le reste, voit avec quaelqu'un d'autre car je vais me pieuter.
Faire un sommaire de toutes les feuilles de ton classeur :
Sub Sommaire()
Dim x As Integer
Dim ws As Worksheet
Sheets("Extraction").Activate
x = 1
For Each ws In Worksheets
Cells(x, 1) = ws.Name
x = x + 1
Next
End Sub
Regarde l'exemple joint, il ne reste plus qu'à demander de copier la ligne 15 de chaque feuille.
Ce n'est pas difficile, il faut utiliser le même principe que la macro ci-dessus.
Bonne fin de nuit
@ +
Moa