Option Explicit
'Appel
Private Sub Command1_Click()
'NOTE: Il faut bien séparer les caracteres a remplacer
'Comme ci dessous sinon cela ne fonctionne pas.
Call MsgBox(ExcludeChars("TEST POUR VOIR", "R", "E"))
End Sub
'Fonction
Public Function ExcludeChars(ByVal S As String, ParamArray CS()) As String
Dim pR
'Boucle sur chaque Element du ParamArray
For Each pR In CS
'Utilise la fonction Replace sur la chaine S
S = Replace(S, pR, vbNullString)
Next
'retourne le résultat des remplacement
ExcludeChars = S
End Function