Eliminer l'erreur DIV/0 dans tout le classeur

Bonjour à tous

J ai trouvé un code qui sert à masquer toutes les erreurs dans la feuille mais je n arrive pas à le modifier pour tout le classeur (toutes les feuilles).

Sub Remove_Formula_Errors()

Dim rng As Range, cell As Range, fmla As String
Set rng = Cells.SpecialCells(xlCellTypeFormulas, 16)
For Each cell In rng
fmla = Right(cell.Formula, Len(cell.Formula) - 1)
cell.Formula = "=if(iserror(" & fmla & "), """"," & fmla & ")"

Next

End Sub

J ai essayé plusieurs façons ,par exemple ,avec ces lignes:

Dim wsh As Worksheet
For Each wsh In ActiveWorkbook.Worksheets
Next wsh

Pourriez-vous m aider à résoudre mon souci?

Salut O'Stanley

Essaye ce code

Sub Remove_Formula_Errors()
  Dim Sht As Worksheet, Rng As Range, Cel As Range, Fmla As String
  ' Poru chaque feuille du classeur
  For Each Sht In ThisWorkbook.Sheets
    ' Définir la zone de la feuille contenant des formules
    Set Rng = Sht.Cells.SpecialCells(xlCellTypeFormulas, 16)
    ' Pour chaque cellule de la zone
    For Each Cel In Rng
      ' Modifier la formule
      Fmla = Right(Cel.Formula, Len(Cel.Formula) - 1)
      Cel.Formula = "=If(IsError(" & Fmla & "), """"," & Fmla & ")"
    Next Cel
  Next Sht
End Sub

A+

Merci beaucoup BrunoM45, ça marche très bien dans le fichier .xlsx, par contre dans .xlsm Excel m'affiche ça: Erreur d exécution 1004 : erreur definie par l'application ou par l'objet

Le debugger dit que cette erreur apparaît après l exécution de la ligne

Set Rng = Sht.Cells.SpecialCells(xlCellTypeFormulas, 16)

Savez-vous à quoi cela est dû par hasard?

Re,

Soit en supprimant le ",16" (je ne sais pas à quoi cela sert)

Soit tu as les feuilles qui sont verrouillées

A+

Les feuilles ne sont pas verrouillées.

Quand j efface ",16" une autre erreur arrive:

"Erreur d'exécution 5 argument ou appel de procédure incorrect"

après la ligne

Fmla = Right(Cel.Formula, Len(Cel.Formula) - 1)

Re,

Je viens de tester chez moi, le code fonctionne très bien !?

Vois avec le fichier joint

A+