[XL-2010] import de donnée depuis un tcd sujet

Bonjour

je cherche à importer des données depuis un Tableau croisé

les données sont organisées en colonnes de mois dans le tableau croisé dynamique pour l'année précédente j'ai les 12 mois DONC y a pas de problème

mais pour l'année en cours par exemple il y a uniquement des données sur le mois de janvier dans mon Tableau croisé: au fur à mesure qu'on aura des données pour les mois suivant le tableau croisé les affichera:

le problème c'est comment ramener au fur à mesure les données concernant les mois en cours.

j'ai fais un bout de code vraiment basique à l'aide de l'enregistreur

Code:

---

Sheets("PROD").Select
range("D10").select

ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Janvier"")"
    Range("D11").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Février"")"
    Range("D12").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Mars"")"
    Range("D13").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Avril"")"
    Range("D14").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Mai"")"
    Range("D15").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Juin"")"
    Range("D16").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Juillet"")"
    Range("D17").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Août"")"
    Range("D18").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Septembre"")"
    Range("D19").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Octobre"")"
    Range("D20").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Novembre"")"
    Range("D21").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Décembre"")"

---

si je suis sur la nouvelle année et que je n'ai que les données de janvier comment faire et ensuite au file des mois ?