Sub test()
OnOff_formules ' désactive les formules
OnOff_formules ' réactive les formules
End Sub
Sub OnOff_formules()
Dim pl As Range
If ThisWorkbook.Names("mesFormules").RefersTo = "=""active""" Then
'désactiver formules
Set pl = Sheets("Feuil2").Cells.SpecialCells(xlCellTypeFormulas)
If Not pl Is Nothing Then
pl.Name = "mesFormules"
pl.NumberFormat = "@"
pl.Value = pl.Formula
End If
Else
' réactiver formules
[mesFormules].NumberFormat = "General"
[mesFormules].Formula = [mesFormules].Formula
ThisWorkbook.Names("mesFormules").RefersTo = "active"
End If
End Sub