Bonjour tout le monde

je commence ma premiére macro en Tableau croisée Dynamique et j'aurais besoins de quelques conseils .

avant tout j'aimerais corriger les lignes 10,11,12 car je veux reprendre la date avec différent format mais ça n'affiche rien. la même ligne de code fonctionne parfaitement dans une autre macro !!!

concernant le TCD j'ai trouver du code sur le forum que je dois adapter, il faut que je détérminer les limites de mon tableau avant le traitement de données car je traite des tableaux de différentes tailles . merci pour vos conseils
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'Sub TCD()
ThisWorkbook.Worksheets(1).Cells(1, 3) = "ANNEE"
ThisWorkbook.Worksheets(1).Cells(1, 13) = "MOIS"
ThisWorkbook.Worksheets(1).Cells(1, 13) = "ANNEE MOIS"
For ligne = 2 To Range("K" & Rows.Count).End(xlUp).Row
If (IsEmpty(Range("A" & ligne))) Then
    'MsgBox "date Manquant à la ligne " & ligne
    Exit Sub
    Else
    Range("L" & ligne).Value = Format(Range("K" & ligne).Value, "yyyy")
    Range("M" & ligne).Value = Format(Range("K" & ligne).Value, "mm")
    Range("N" & ligne).Value = Format(Range("K" & ligne).Value, "yyyymm")
Next ligne
'End Sub
Sub CreerTCD()
 
'SourceData: Définit la source de données dans le TCD.
'[Feuil1!A1].CurrentRegion.Address(, , xlR1C1, True) permet d'étendre
'automatiquement la sélection de façon à y inclure toute la zone en cours
'à partir de la cellule A1, dans la Feuil1.
 
'TableDestination: Définit la position du TCD (cellule A3 dans la Feuil2).
 
'TableName: Définit le nom du nouveau TCD. ("Mon TCD")
 
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [Feuil1!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
    TableDestination:="Feuil2!R3C1", _
    TableName:="Mon TCD"
 
 
'Mise en forme:
With Feuil2.PivotTables("Mon TCD")
    'Ajoute un champ de lignes nommé "Ville".
    'Le nom du champ "Ville" doit préalablement exister comme entête de la
    'source de données.
    .AddFields RowFields:="CODE ARTICLE"
    .AddFields RowFields:="ANNEE MOIS"
 
    'Définit l'orientation du champ nommé "CA" en tant que Donnée.
    'le nom du champ "CA" doit préalablement exister comme entête
    'de la source de données.
    .PivotFields("Qte_dem_km").Function = xlSum
End With
 
End Sub