Bonjour,

En fait j'ai un petit soucis sous VBA Excel:

J'ai un classeur avec beaucoup d'onglets et ce que je souhaiterai c'est récupérer les lignes de chaques onglets de les copier et de les coller sur la feuille nommée résultat.
En fait j ai fait la macro pour un onglet(sheet1) et faudrai que la macro fasse ce qu elle fait sur sheet1 sur toutes les autres sheets (cad décalle à l onglet de droite jusqu a la fin)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub macro()
Worksheets("sheet1").Select
a = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range(Cells(1, 1), Cells(a, 12)).Select
Selection.Copy
Sheets("résultat").Select
j = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Cells(j + 1, 1).PasteSpecial xlPasteAll
End Sub
Merci bcp & Bonne journée.

Arnaud