XL 2019 Stopper une fonction si un champs contient des caractères interdit.

Sub test()
MsgBox "Ce champs contient des caractères interdit : " & CharInterdit("*")
End Sub

Function CharInterdit(V As String) As Boolean
Dim Ch(): Ch() = Array("<", ">", ":", Chr(34), "/", "(", "|", "?", "*")
For i = 0 To UBound(Ch)
    If CBool(InStr(1, V, Ch(i))) Then CharInterdit = True: Exit Function
Next
End Function

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim interdit$, L%, i%, x$
interdit = "<>:""/\|?*"
L = Len(interdit)
Set Target = Intersect(Target, Sh.UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target.Areas 'si entrées multiples (copier-coller)
    For i = 1 To L
        x = Mid(interdit, i, 1)
        If i > L - 2 Then x = "~" & x 'tilde devant les caractères génériques ? et *
        If Application.CountIf(Target, "*" & x & "*") Then
            Target.Select
            Target.Find(x, , xlValues, xlPart).Activate
            MsgBox "Caractère interdit !", 48
            Application.EnableEvents = False 'désactive les évènements
            Application.Undo 'annule l'entrée
            Application.EnableEvents = True 'réactive les évènements
            Exit For
        End If
Next i, Target
End Sub