Filtrer sur toutes les valeurs d'une étiquette de ligne SAUF les vides dans un TCD

[Runsh63]

Bonjour,

Je suis pas très fortiche en VBA, et dans une de mes procédures, j'ai besoin d'actualiser un TCD (qui compilent des comptes et somme les soldes) afin qu'il prenne toutes les valeurs sauf les vides.
Problème, je ne sais qu'actualiser mon pivot, je ne sais pas comment écrire le reste. Car jusqu'à présent ça va mais le jour où j'aurai un (des) nouveau(x) compte(s), ça ne va pas le prendre en compte (j'ai testé).
Pouvez-vous m'aider SVP ? Je vous mets le code écris mais c'est rachitique !!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
With Sheets("BS & RAN")
 
    Dim LR5 As Integer
 
        .PivotTables("Pivot1").PivotCache.Refresh
 
    LR5 = .Cells(.Rows.Count, 5).End(xlUp).Row
 
        .Range("E2:E" & LR5).Copy Sheets("Dataloader").Range("B2")
        .Range("F2:F" & LR5).Copy Sheets("Dataloader").Range("E2")
        .Range("F2:F" & LR5).Copy Sheets("Dataloader").Range("F2")
 
    End With

Les données sources sont en A et B, le TCD en E et F

Je vous remercie par avance !

[Runsh63]

Bonjour,

Pensez-vous que ça soit bon comme ceci ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    With Sheets("BS & RAN")
 
    Dim LR6 As Integer
 
        .PivotItems("(blank)").Visible = False
        .PivotTables("Pivot1").PivotCache.Refresh
 
    LR6 = .Cells(.Rows.Count, 5).End(xlUp).Row
 
        .Range("E2:E" & LR6).Copy Sheets("Dataloader").Range("B2")
        .Range("F2:F" & LR6).Copy Sheets("Dataloader").Range("E2")
        .Range("F2:F" & LR6).Copy Sheets("Dataloader").Range("F2")
 
    End With

Merci pour votre aide.