' appel : OptimiseVBA sh, True [, False]
Sub OptimiseVBA(sh As Worksheet, ok As Boolean, Optional events As Boolean = False)
' sh : feuille à traiter
' ok : True : suspendre recalculs, False : rétablir recalculs
' noEvents : True : suspendre événements, False : rétablir événements
With Application
.Calculation = IIf(ok, xlCalculationManual, xlCalculationAutomatic)
.EnableEvents = events Or Not ok
.EnableAnimations = Not ok
End With
With sh
.DisplayPageBreaks = Not ok
.EnableCalculation = Not ok ' feuille avec données sources contenues dans des fichiers csv ou txt externes.
' >=2007: calcul formats conditionnels. = True entraine le recalcul de toutes les formules de la feuille
If Val(Application.Version) >= 12 Then .EnableFormatConditionsCalculation = Not ok
End With
End Sub