Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
[L:M].Clear 'RAZ
With PivotTables(1).TableRange1
.Columns(10).Copy .Columns(11).Resize(, 2) 'pour les formats
.Columns(11) = "=K18*F$7"
.Cells(1, 11) = "Budget ventilé"
.Columns(12) = "=MAX(J18,C8)" 'plus simple que "=IF(J18>C18,J18;C18)"
.Cells(1, 12) = "Test"
.Columns(11).Resize(, 2).NumberFormat = "# ###"
End With
Application.EnableEvents = True
End Sub