Bonjour,

J'ai écris un petit code et qui ne marche pas pour une raison inconnue

Le code ci dessous, va parcourir 4 feuilles, copie les pivot tables dans chacune d'entre elles et les colles un après un dans une nouvelle feuille. Voici d'abord le code :
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
23
24
25
26
Dim i As Integer
Dim j As Integer
 
j = 7
 
Sheets.Add
Application.DisplayAlerts = False
 
    For i = 1 To 4
 
        With Worksheets("Sheet" & j).PivotTables("PivotTable" & i).TableRange2.Copy
        End With
 
        With ThisWorkbook.Worksheets("Sheet11")
        .Activate
        .Range("E" & ActiveSheet.UsedRange.Rows.Count + 4).PasteSpecial Paste:=xlValues
        .UsedRange.Columns.AutoFit
        End With
 
        Sheets("Sheet" & j).Delete
 
        j = j + 1
 
    Next i
 
Application.DisplayAlerts = True
Le code donc procéde à la copie et colle les tableaux un après un, seul petit bémol : il colle le deuxième tableau à partir de la dernière ligne du tableau précédent qu'importe le nombre que j'utilise ici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 .Range("E" & ActiveSheet.UsedRange.Rows.Count + 4).PasteSpecial
Des suggestions, des idées ?

Merciiiiiii