Sub SiErreurFormule()
Dim xcell, myRG As Range
On Error GoTo SiErreurFormule_err_01
Set myRG = Application.InputBox(prompt:="Sélectionner la zone à traiter :", Type:=8)
On Error GoTo 0
For Each xcell In myRG
If xcell.HasFormula And Left(xcell.Formula, 9) <> "=IFERROR(" Then
xcell.Formula = "=iferror(" & Right(xcell.Formula, Len(xcell.Formula) - 1) & ","""")"
End If
Next xcell
SiErreurFormule_err_01:
End Sub
Private Sub Worksheet_Activate()
Dim xcell, myRG As Range
On Error GoTo PasDerreur
Set myRG = Range("A:Q").SpecialCells(xlCellTypeFormulas, 16)
On Error GoTo 0
For Each xcell In myRG
If xcell.HasFormula And Left(xcell.Formula, 9) <> "=IFERROR(" Then
xcell.Formula = "=iferror(" & Right(xcell.Formula, Len(xcell.Formula) - 1) & ","""")"
End If
Next xcell
PasDerreur:
End Sub