Function KKK(myCell As Range, Substitute As String, Optional BadValues As Range)
Dim coincidence As Boolean

If BadValues.Count > 0 Then
    For Each BadValue In BadValues
        If myCell = BadValue.Value Then
        coincidence = True
        End If
    Next
Else
End If