Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim dateString As String
Set pvtTable = ActiveSheet.PivotTables("Tableau croisé dynamique1")
dat = pvtTable.RefreshDate
dateString = Format(pvtTable.RefreshDate, "dd/mm/yyyy hh:mm:ss")
[D1] = dateString
Set pvtTable = ActiveSheet.PivotTables("Tableau croisé dynamique2")
dat = pvtTable.RefreshDate
dateString = Format(pvtTable.RefreshDate, "dd/mm/yyyy hh:mm:ss")
[D2] = dateString
Set pvtTable = ActiveSheet.PivotTables("Tableau croisé dynamique3")
dat = pvtTable.RefreshDate
dateString = Format(pvtTable.RefreshDate, "dd/mm/yyyy hh:mm:ss")
[D3] = dateString
End Sub