Function SupCertCar(schaine As String)
Dim A As Variant
texte = ""
A = Array("[", "]", "_", "(", ")")
For i = 1 To Len(schaine)
For J = 0 To 3
If Mid(schaine, i, 1) = A(J) Then GoTo suite
Next
texte = texte & Mid(schaine, i, 1)
suite:
Next
SupCertCar = texte
End Function