Bonjour
Je souhaite que le copier de chaque Sheets se colle les uns en dessous des autres et non pas les uns en dessus des autres comme ce code.Je commence par la 2è Sheets car la première est la Sheets("Music"). Il me manque la variable i=1+1 que je n'arrive pas finaliser.

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim i As Integer
 
For i = 2 To Sheets.Count
            Sheets(i).Range("K1:O100").Copy
            Sheets("Music").Range("A" & Rows.Count).End(xlUp).Offset(2, 7).Select  'toute version
            ActiveSheet.Paste
Next i