Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.RefreshAll
With Sheets("TCD").PivotTables(1).TableRange1
With .Columns(.Columns.Count + 1)
.EntireColumn.Clear
.Offset(, -1).Copy .Cells 'pour les formats
.Cells = "=MIN(RC2:RC[-1])"
.Cells(1) = "Min"
End With
End With
End Sub