• Initiateur de la discussion Initiateur de la discussion hboisteau
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

hboisteau

XLDnaute Junior
Bonsoir a vous tous,
voila j'ai effectué une requete avec l'enregistreur de requete, qui fonctionne tres bien, j'ai quand meme un souci c'est que cette requete est tres longue a s'executer. je vous joint cette requete si quelques avait une idée pour la rendre a peine plus rapide.
Merci par avance pour votre aide.
herve.
Code:
Sub gametype()
'
' gametype Macro
'

'
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        EnableMultiplePageItems = True
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Range("A12:L187").Select
    Selection.Copy
    Sheets("F1").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F2").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F4").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("F3").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F4").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F5").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F6").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F7").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F8").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F9").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F10").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F11").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F12").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F13").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F14").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F15").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F16").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F17").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F18").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F19").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F20").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("StartGate Prog.").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F21").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("StartGate Prog.").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = False
        .PivotItems("ARISTOCRAT Reel Power").Visible = False
        .PivotItems("ARISTOCRAT Video Reel").Visible = False
        .PivotItems("ATRONIC Video Multiway").Visible = False
        .PivotItems("ATRONIC Video Reel").Visible = False
        .PivotItems("Cash Express Prog.").Visible = False
        .PivotItems("Cash Fever Prog.").Visible = False
        .PivotItems("Diamond Jackpots Prog.").Visible = False
        .PivotItems("Fort Knox Prog.").Visible = False
        .PivotItems("IGT Multi Poker").Visible = False
        .PivotItems("IGT Reel").Visible = False
        .PivotItems("IGT Reel + BONUS").Visible = False
        .PivotItems("IGT VIDEO MultiPlay").Visible = False
        .PivotItems("IGT VIDEO Multiway").Visible = False
        .PivotItems("IGT VIDEO Reel").Visible = False
        .PivotItems("King Kong Cash Prog.").Visible = False
        .PivotItems("Magic Five Prog.").Visible = False
        .PivotItems("Novo. Roulette").Visible = False
        .PivotItems("Party Time Prog.").Visible = False
        .PivotItems("Red Hot Jackpots Prog.").Visible = False
        .PivotItems("Royal Ascot").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("F22").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "gametype")
        .PivotItems("ARISTOCRAT Multiway").Visible = True
        .PivotItems("ARISTOCRAT Reel Power").Visible = True
        .PivotItems("ARISTOCRAT Video Reel").Visible = True
        .PivotItems("ATRONIC Video Multiway").Visible = True
        .PivotItems("ATRONIC Video Reel").Visible = True
        .PivotItems("Cash Express Prog.").Visible = True
        .PivotItems("Cash Fever Prog.").Visible = True
        .PivotItems("Diamond Jackpots Prog.").Visible = True
        .PivotItems("Fort Knox Prog.").Visible = True
        .PivotItems("IGT Multi Poker").Visible = True
        .PivotItems("IGT Reel").Visible = True
        .PivotItems("IGT Reel + BONUS").Visible = True
        .PivotItems("IGT VIDEO MultiPlay").Visible = True
        .PivotItems("IGT VIDEO Multiway").Visible = True
        .PivotItems("IGT VIDEO Reel").Visible = True
        .PivotItems("King Kong Cash Prog.").Visible = True
        .PivotItems("Magic Five Prog.").Visible = True
        .PivotItems("Novo. Roulette").Visible = True
        .PivotItems("Party Time Prog.").Visible = True
        .PivotItems("Red Hot Jackpots Prog.").Visible = True
        .PivotItems("Royal Ascot").Visible = True
    End With
End Sub
Sub Macro12()
'
' Macro12 Macro
'

'
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("deno"). _
        CurrentPage = "(Tous)"
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("deno"). _
        EnableMultiplePageItems = True
    Range("A12:L247").Select
    Selection.Copy
    Sheets("All Slots").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
        CurrentPage = "(Tous)"
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor")
        .PivotItems("Novomatic").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Without Wheel").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor")
        .PivotItems("Novomatic").Visible = True
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor")
        .PivotItems("Aristocrat").Visible = False
        .PivotItems("Atronic").Visible = False
        .PivotItems("IGT").Visible = False
        .PivotItems("Sega").Visible = False
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Novomatic").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("interrogation").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor")
        .PivotItems("Aristocrat").Visible = True
        .PivotItems("Atronic").Visible = True
        .PivotItems("IGT").Visible = True
        .PivotItems("Sega").Visible = True
    End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
2 K
Retour