Sub Afficher()
Dim plg As Range
Set plg = Application.InputBox _
("Sélectionner une Plage/Cellule", , , , , , , 8)
For Each cel In plg
cel.Formula = "'" & cel.Formula
Next
End Sub
Sub Masquer()
Dim plg As Range
Set plg = Application.InputBox _
("Sélectionner une Plage/Cellule", , , , , , , 8)
For Each cel In plg
cel.Formula = "=" & Right(cel.Formula, Len(cel.Formula) - 1)
Next
End Sub