rajouter du texte par macro

Bonjour titi,

En sélectionnant les cellules concernées
executer cette macro:
'*********
Sub Ajtgsm()
Dim c As Range

For Each c In Selection.Cells
c = c & " gsm"
Next

End Sub

'**********
'lSteph
<titi> a écrit dans le message de news:
hkb6r0hpgcppi52ib5atfrucm7taf9ng8m@4ax.com...

bonjour

je recherche a rajouter du texte par macro

j'explique

j'ai une liste de noms

Mr Dupont Gerard
Mr Martin Christian
Mr Durand Daniel
...
...
...
...



je cherche donc a ecrire une macro qui me rajoute derriere chaque
prénom Gsm


j'ai ecrit un bout de code mais y marche pas du tout

Bonjoir(c) titi

Question, pourquoi par macro ?

Si ta liste est saisie dans la colonne A par exemple, prend la première
cellule de la colonne B et tape
¡&" Gsm"
double clic ensuite sur la poignée, tu sélectionne, Copier, tu clique sur
ta cellule A1, clic droit, Collage spécial, Valeur, OK

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/

Le 05/12/2004 16:54 vous avez écrit ceci :

bonjour

je recherche a rajouter du texte par macro

j'explique

j'ai une liste de noms

Mr Dupont Gerard
Mr Martin Christian
Mr Durand Daniel
...
...
...
...



je cherche donc a ecrire une macro qui me rajoute derriere chaque
prénom Gsm


j'ai ecrit un bout de code mais y marche pas du tout