Macro VBA TablePivot

Je n'arrive pas à te joindre un fichier en message privé, je le poste donc ici.

Merci encore.

dans ton fichier le UsedRange retourne un plage qui n'est pas bonne!
j'ai pris le CurrentRegion !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Zone11Lundi() Dim TDC As New clsTdcRD TDC.CreerTableau ActiveWorkbook, "Data!" & Sheets("Data").Range("A1").CurrentRegion.Address, "Test", "Data" TDC.NewPivotTables "Zone", TypeFiltre TDC.NewPivotTables "Jour", TypeFiltre TDC.NewPivotTables "Tournee", Typeligne TDC.NewPivotTables "Code_PDL", Typeligne TDC.NewPivotTables "Nom_PDL", Typeligne TDC.NewPivotTables "Article", Typeligne TDC.NewDataField "Stock", Somme TDC.AfficheTotal True, True TDC.Style PivotStyleMedium9 If TDC.FiltreTypeFiltre("Zone", "11") = False Then MsgBox "Pastrouvé" If TDC.FiltreTypeFiltre("Jour", "Lun") = False Then MsgBox "Pastrouvé" End Sub

---

Merci rdurupt!