Tableau croisé dynamique : différencier minuscules / majuscules -> macro ?

[amonprofil]

Salut à tous,

Tout récemment inscrit dans ce forum et ayant juste quelques notions en visual basic, j'ai besoin d'un réponse pour réussir à différencier les minuscules des majuscules dans mon tableau croisé dynamique.

Je m'explique dans la plage de données que j'ai sélectionnée pour créer mon tcd, une colonne contient soit des "d" soit des "D" mais quand Excel compile le tout il ne me sépare pas les deux types. Par exemple si j'ai 10 "d" et 10 "D" dans ma plage, excel va me proposer un tcd avec 20 "D".

Je n'ai pas trouvé d'option me permettant de corriger ce problème directement par excel. J'ai donc enregistré une macro complète où je crée mon tdc. J'ai obtenu les lignes de code ci-dessous...
Quelqu'un sait-il ce qu'il faut que je change comme paramètre dans ces lignes pour qu'excel fasse enfin la différence entre "d" et "D" ?

Merci d'avance.

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Range(Cells(1, 1), Cells(i - 1, 5))).CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date")
        .Orientation = xlRowField
        .Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Cls.")
        .Orientation = xlColumnField
        .Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Type")
        .Orientation = xlPageField
        .Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Nom Prénom"), _
        "Nombre de Nom Prénom", xlCount
    
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False