XL 2016 Pb avec SOMMEPROD

'https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.interop.excel.xlerrorchecks?view=excel-pia
'Possible values of xlErrorChecks
'xlEvaluateToError          1    The cell evaluates to an error value.
'xlTextDate                 2    The cell contains a text date with 2-digit years.
'xlNumberAsText             3    The cell contains a number stored as text.
'xlInconsistentFormula      4    The cell contains an inconsistent formula for a region.
'xlOmittedCells             5    The cell contains a formula omitting a cell for a region.
'xlUnlockedFormulaCells     6    The cell, which is unlocked, contains a formula.
'xlEmptyCellReferences      7    The cell contains a formula referring to empty cells.
'xlListDataValidation       8    The cell contains a value inconsistent with list data validation.
'xlInconsistentListFormula  9    The cell contains an inconsistent formula for a list.

  
Sub IgnoreErrors()
    Dim Cel As Range
    Dim i As Integer

    For Each Cel In ActiveSheet.UsedRange
        For i = 1 To 9
            Cel.Errors.Item(i).Ignore = True
        Next i
    Next Cel
End Sub