'J 'ai une colonne avec des données de A1 à C3 onglet 1 (il faut une boucle car les champs sont variables
'J'ajoute un onglet que je renommerai onglet 3
'Je veux faire un TCD dans l'onglet 3 avec les données de l'onglet 1 (A1:C3) pour supprimer les doublons et garder les combinaison uniques
'ensuite ce TCD faire un copier coller valeur puis transposer les 3 combinaisons sur 3 lignes de l'onglet 2
'onglet 2 les 3 combinaisons coller ligne 2 , 4 , 6 je veux copier coller les formules deja présentes en colonne de A8 a A15 dans l'onglet 2
'jusqu ' à que la ligne 2 ne soit pas vide.colonne B, C,D

puis supprimer l'onglet 3 contenant le TCD.

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
    Sheets("onglet1").Select
    Sheets.Add
    ActiveWorkbook.Worksheets("TCD").PivotTables("Tableau croisé dynamique3"). _
        PivotCache.CreatePivotTable TableDestination:="Feuil3!R3C1", TableName:= _
        "Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion15
    Sheets("Feuil3").Select
    'je veux renommer cette feuille pour l'utiliser ensuite dans mon code
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Range("A5:D5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("onglet2").Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True