Bonjour,
réponse tardive mais voici un essai:
code:
Sub test()
Dim listef As Long
For listef = 4 To 6
nom = Cells(listef, 41).Value
derligne = Worksheets(nom).[AN9]
preligne = Worksheets("recap").[AM6]
Sheets(nom).Select
Range([L8], Cells(derligne, 12)).Copy
Sheets("recap").Select
Cells(preligne, 4).Select
ActiveSheet.Paste
Next
End Sub
fichier:
Le fichier de base ne convient pas, pas de cellule fusionné ça fout le bordel, chaque donné à chercher sur une ligne.
Lors d'ajout de nouvelle feuille, rajouter le nom à la suite de "liste feuille" dans "recap". Sélectionner la plage de donnée de cette nouvelle feuille ("A1:AH100") et définir un nom (le même que celui de la feuille, sans espace ex: CA_mars)
Formule matricielle pour les colonnes "C" "E" et "F", validation avec ctrl+maj+entrer