Bonjour,

J'ai un classeur Excel avec de nombreuses feuilles et je voudrais copier une même section de chaque feuille et la coller sur une feuille unique ("Synthese") en décalant à chaque fois l'endroit où je colle afin d'avoir les données les unes à côté des autres.
J'ai essayé le code suivant mais sans succès :

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
19
20
21
22
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 08/09/2015 par lecastorlapon
'
Dim LaFeuille As Excel.Worksheet
Dim step As Integer
step = 0
 
    Set MesfeuillesTest = Workbooks("toto.xlsm").Worksheets
 
    For Each LaFeuille In MesfeuillesTest
 
    Range("D3:D30").Select
    Selection.Copy
    Sheets("Synthese").Select
    Range("A3").Offset(0, step).Select
    ActiveSheet.Paste
    step = step + 1
    Next
 
End Sub
La copie se fait à partir de la même feuille ce qui ne me convient pas.
Avez-vous une solution ?

Merci