Bonjour,

je souhaite créer une macro qui récupère les données (en valeur) de plusieurs onglets (même trame) a partir du 14ème onglet jusqu’à la fin du fichier et les copie sur une feuille appelée "BDD".

J'ai commencé par créer la macro sur un seul onglet afin d'avoir une base de travail mais je ne parvient pas à créer une boucle correcte ( les donnée des onglets suivants viennent écraser celles du premier onglet).

l'objectif : les données du premier onglet source sont collées en valeur dans BDD sur la plage A2:28, le second devrait aller à la suite en A29:M55 et ainsi des suite.


Merci d'avance pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Recap_Prod()
 
Dim i As Long, ldest As Long
Worksheets("BDD").Select
 
Cells.Delete
 
For i = 13 To Worksheets.Count
With Worksheets(i)
Range("A2:A28").Value = .Range("N1").Value
Range("B2:B28").Value = .Range("N2").Value
Range("C2:M28").Value = .Range("A7:M33").Value
 
End With
Next
ldest = ldest + 1
 
End Sub