VBScript se positionner avant de coller

Bonjour,

je souhaite copier le contenu de toutes les feuilles d'un document
excell dans une nouvelle feuille (toujours dans ce document).

tu veux dire copier toutes les lignes de chaques feuilles de ton classeur
les à la suite sur une nouvelle feuille dans ce même classeur ?

j'arrive bien à copier et coller le contenu de chaque feuille, mais
elles se collent l'une par dessus l'autre...

Je pense donc qu'il faudrait que je me positionne une ligne en dessous
du dernier collage.
Je ne sais pas comment faire cela.

merci d'avance

en vba

Sub copie_a_la_suite()
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "synthese"

For i = 1 To Sheets.Count
If ActiveWorkbook.Sheets(i).Name <> "synthese" Then
ActiveWorkbook.Sheets(i).Select

Range("a1", Selection.SpecialCells(xlCellTypeLastCell)).Copy
ActiveWorkbook.Sheets("synthese").Select
derniere = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Offset(1,
0).Row
Cells(derniere, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next
End Sub

ca doit marcher à tester et adapter bien sûr.


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~