Problème avec une macro pour un TCD

Bonjour,

J'ai récupéré et modifié une macro pour créer et modifier un tableau croisé dynamique mais la macro n'apparaît pas dans mon choix de macro je ne peux pas là lancer du tout peut-être que le problème viens de mon code je ne sais pas. J'ai bien activer les macros de mon fichier.

Je vous met mon code en espérant que quelqu'un puisse m'aider merci d'avance

Option Explicit

Sub CreerTCD(ByVal sRngAddress As String, ByVal sRngStart As String, Optional ByVal tcdNom As String = "Tableau croisé dynamique 1")
' Créer un tcd dans une feuille existante à partir d'une plage de cellules

Dim tcd As PivotTable, tcdCache As PivotCache

' Plage de la source de données
Debug.Print "source de donnéees:", sRngAddress

' Cellule où insérer le tcd
Debug.Print "cellule de départ:", sRngStart

' Créer le cache du tcd
Set tcdCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=sRngAddress)

' Créer le tcd à partir du cache
Set tcd = tcdCache.CreatePivotTable( _
    TableDestination:=sRngStart, _
    TableName:=tcdNom)

' Ordonne le tcd en format tabulaire
tcd.RowAxisLayout xlTabularRow

End Sub

Sub AjouterChampTCD(ByVal sChamp As String, ByVal sZoneTcd As String, Optional ByVal pos As Variant = 1, Optional ByVal sNombreFormat As String = vbNullString, Optional ByVal tcdNom As String = vbNullString)
' Ajoute un champ au tcd dans la zone spécifiée: filtre, ligne, colonne ou valeur

Dim tcd As PivotTable, sTxtChamp As String

On Error GoTo Erreur

If tcdNom <> vbNullString Then
    Set tcd = ActiveSheet.PivotTables(tcdNom)
    Debug.Print "nom du tcd entré : " & tcdNom
Else
    Set tcd = ActiveSheet.PivotTables(1)
    Debug.Print "nom du tcd 1 de la feuille : " & tcd.Name
End If

Debug.Print "champ à ajouter :", sChamp
If tcd.PivotFields(sChamp).Orientation = xlHidden Then

    Select Case sZoneTcd
    
        ' Ajoute un champ en Filtre, Ligne, Colonne
        
        Case "Filtre"
        tcd.PivotFields(sChamp).Orientation = xlPageField
        
        Case "Colonne"
        tcd.PivotFields(sChamp).Orientation = xlColumnField
        
        Case "Ligne"
        tcd.PivotFields(sChamp).Orientation = xlRowField
        
        ' Ajoute un champ en Valeur
        
        Case "Somme"
        sTxtChamp = "Somme de " & sChamp
        tcd.AddDataField tcd.PivotFields(sChamp), sTxtChamp, xlSum
        
        Case "Nombre"
        sTxtChamp = "Nombre de " & sChamp
        tcd.AddDataField tcd.PivotFields(sChamp), sTxtChamp, xlCount
        
        Case "Moyenne"
        sTxtChamp = "Moyenne de " & sChamp
        tcd.AddDataField tcd.PivotFields(sChamp), sTxtChamp, xlAverage
        
        Case "Max"
        sTxtChamp = "Max de " & sChamp
        tcd.AddDataField tcd.PivotFields(sChamp), sTxtChamp, xlMax
        
        Case "Min"
        sTxtChamp = "Min de " & sChamp
        tcd.AddDataField tcd.PivotFields(sChamp), sTxtChamp, xlMin
        
        Case "Produit"
        sTxtChamp = "Produit de " & sChamp
        tcd.AddDataField tcd.PivotFields(sChamp), sTxtChamp, xlProduct
        
        Case Else
        ' par défaut
        
    End Select
    
    ' Position dans la liste
    'tcd.PivotFields(sChamp).Position = pos
    
    ' Format du champ de pivot
    'If sNombreFormat <> vbNullString Then tcd.PivotFields(sChamp).NumberFormat = sNombreFormat

End If

Exit Sub
Erreur:
    MsgBox "Le champ ne peut être ajouté.", vbExclamation, "Ajout du champ annulé"

End Sub

Sub SupprimerChampTCD(ByVal sChamp As String, Optional ByVal tcdNom As String = vbNullString)
' Supprime un champ du tcd

Dim tcd As PivotTable

If tcdNom <> vbNullString Then
    Set tcd = ActiveSheet.PivotTables(tcdNom)
Else
    Set tcd = ActiveSheet.PivotTables(1)
End If

Debug.Print "champ à supprimer :", sChamp
If tcd.PivotFields(sChamp).Orientation <> xlHidden Then
    tcd.PivotFields(sChamp).Orientation = xlHidden
End If

End Sub

Sub ActualiserTCD(Optional ByVal tcdNom As String = vbNullString)
' Actualise un tcd

Dim tcd As PivotTable

If tcdNom <> vbNullString Then
    Set tcd = ActiveSheet.PivotTables(tcdNom)
Else
    Set tcd = ActiveSheet.PivotTables(1)
End If

' Actualise un seul tcd
tcd.PivotCache.Refresh
 
' Actualise tous les tcd
'ActiveWorkbook.RefreshAll
    
End Sub

Sub SupprimerUnTCD(Optional ByVal tcdNom As String = vbNullString)

On Error GoTo Erreur

If tcdNom <> vbNullString Then
    ActiveSheet.PivotTables(tcdNom).TableRange2.Clear
Else
    ActiveSheet.PivotTables(1).TableRange2.Clear
End If

Exit Sub

Erreur:
    MsgBox "Le tableau croisé dynamique ''" & tcdNom & "'' n'a pas été trouvé.", vbExclamation, "Suppression annulée"
    
End Sub

Sub ChangerSourceTCD(ByVal sRngAddress As String, Optional ByVal tcdNom As String = vbNullString)
' Change la source de données d'un tcd à partir d'une plage de cellules

Dim tcd As PivotTable, SrcData As String

On Error GoTo Erreur

If tcdNom <> vbNullString Then
    Set tcd = ActiveSheet.PivotTables(tcdNom)
Else
    Set tcd = ActiveSheet.PivotTables(1)
End If

' Détermine la nouvelle source de données du tcd
SrcData = Application.Evaluate(sRngAddress).Address(ReferenceStyle:=xlR1C1, External:=True)
Debug.Print "nouvelle source:", sRngAddress
     
' Change la source de données
tcd.ChangePivotCache ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=SrcData)

Exit Sub
Erreur:
    MsgBox "Impossible de changer la source du TCD.", vbExclamation

End Sub