Bonjour,
Une proposition TCD (tableau croisé dynamique) et une conversion des dates en VBA.
J'ai supprimé un certain nombre de lignes pour limiter la taille du fichier.
Cdlt.
Public Sub Main()
Dim pt As PivotTable, lo As ListObject, rng As Range, lCol As Long
Set lo = Range("T_Factures").ListObject
For lCol = 2 To 3
'Conversion dates texte en dates valides
Set rng = lo.ListColumns(lCol).DataBodyRange
rng.TextToColumns _
Destination:=rng.Cells(1, 1), _
DataType:=xlDelimited, _
FieldInfo:=Array(1, 4)
Next lCol
'Actualisation TCD
Set pt = Worksheets("site").PivotTables(1)
pt.PivotCache.Refresh
End Sub