Bonjour AbCuser, bonjour à tous,

Comme tu indiques avoir un grand nombre de cellules, on va éviter les formules, une piste parmi d'autres dans le fichier ci-joint:

- Je copie les colonnes qui m'intéressent dans un onglet de travail

- J'élimine les doublons

- Je mets à jour le TCD

J'ai utilisé ce code (sommaire) , à adapter à tes besoins:

Sub Macro1()
'
' Macro1 Macro
'

'efface les données onglets tmp
Sheets("tmp").Cells.ClearContents

'Copie la base dans l'onglet tmp
With Sheets("Base")
    .Range("A1").CurrentRegion.Copy Sheets("tmp").Range("A1")
End With

'retire les doublons
With Sheets("tmp")
    .Range("$A$1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlYes
End With

'actualise le TCD
'la source de données du TCD est nommée ZoneTCD dans le fichier
With Sheets("Recap")
    .PivotTables("TCD1").PivotCache.Refresh
End With

End Sub

En espérant que cette piste pourra t'aider,

Bien à toi,

mth