suppression d'un caractère dans une chaine

Salut

est-ce toujours le même ?
si oui, un exemple (ôte tous les a)
Sub Macro1()
For Each c In Selection
c.Value = Application.Substitute(c.Value, "a", "")
Next
End Sub

est-ce à la même place
si oui , un exemple ôte le 1er caractère
Sub macro2()
For Each c In Selection
c.Value = Mid(c.Value, 2, Len(c.Value) - 1)
Next
End Sub

a+
rural thierry

"sharmi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 7DC49DBE-4DD7-4DBD-85C0-755A170D5BCC@microsoft.com...

Bonjour,
j'ai une chaine de caractère dans laquelle il faut que j'enlève
automatiquement par une macro un caractère.

Comment ecrire cette macro ?
merci de votre aide.
sharmi

bonjour

sans autre indication
pour enlever le caractere x de la chaine en a1
=substitue(A1;"x";"")
pour modifier le caractere x de la chaine en a1 par y
=substitue(A1;"x";"y")
attention a la casse
RaMa
"sharmi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:7DC49DBE-4DD7-4DBD-85C0-755A170D5BCC@microsoft.com...

Bonjour,
j'ai une chaine de caractère dans laquelle il faut que j'enlève
automatiquement par une macro un caractère.

Comment ecrire cette macro ?
merci de votre aide.
sharmi