Dim monTableau(1 To 27)
monTableau(1) = "!"
monTableau(2) = "?"
monTableau(3) = ","
monTableau(4) = "."
monTableau(5) = ";"
monTableau(6) = ")'"
monTableau(7) = "1"
monTableau(8) = "2"
monTableau(9) = "3"
monTableau(10) = "4"
monTableau(11) = "5"
monTableau(12) = "6"
monTableau(13) = "7"
monTableau(14) = "8"
monTableau(15) = "9"
monTableau(16) = "0"
monTableau(17) = "+"
monTableau(18) = "-"
monTableau(19) = "*"
monTableau(20) = "="
monTableau(21) = "/"
monTableau(22) = "€"
monTableau(23) = "£"
monTableau(24) = "$"
monTableau(25) = "%"
monTableau(26) = "["
monTableau(27) = "]"
v = Right(CollWord(x), 1)
If IsError(Application.Match(v, monTableau, 0)) Then
MsgBox "Non trouvé"
Else
MsgBox "Trouvé"
End If