FormulaTest = FormulaBasic
caract = Array("[", "]", "#", "+", "-", "/", "*", "=", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "<", ">", "$", "(", ")", ".")
For numcaract = 0 To 23
FormulaTest = Replace(FormulaTest, caract(numcaract), "")
Next numcaract
If FormulaTest <> "" Then
MsgBox "are authorized only the characters:()[]#0123456789+-*/.<>$=", vbExclamation, "Attention!"
Exit Sub
End If