Copier-coller plage de cellules variable VBA

[mimimo]

Bonjour, je cherche à copier les résultats d'un tableau croisé dynamique pour en faire une archive.

Dans l'exemple que j'ai joint je cherche à copier la plage de cellule A5 à C9 pour aller la copier dans le feuillet "Archive".
Le tableau s'appelle "tableau 1" et il s'actualise à chaque fois que je lui donne un rapport de transaction avec cette macro


Sub ACTUALISATION ()

Dim TCD1 As PivotTable

Set TCD1 = Sheets("Tab M").PivotTables("Tableau1")
TCD1.SourceData = Sheets("Rapport").[A1].CurrentRegion.Address(True, True, xlR1C1, True)

TCD1.RefreshTable

End Sub


J'aimerais que la plage de données aille se coller à la ligne 1 à chaque première cellule vide (B2 pour le mois 1)., C'est comme ça que je l'imagine du moins. Comme ça à chaque fois que je vais mettre un rapport , les résultats pour chaque mois vont s'accumuler comme dans le feuillet "exemple".


J'aimerais également que le code comprenne que la plage de données à sélectionner se termine lorsqu'il n'y a cellule vide car ma plage commence toujours à la ligne 5 mais s'arrête de façon variable.

Merci d'avance pour votre aide.

 

[CHALET53]

Re : Copier-coller plage de cellules variable VBA

bonjour,

Un essai

J'ai rajouté une info en Feuille Tableau (A2) : le mois (sinon, je ne vois pas comment le trouver dans la feuille Archive

a+