Bonjour

J'ai recupéré un bout de code que je n'arrive plus a faire fonctionné. impossible de retrouver ce bout de code sur le net

Mon probleme est le suivant, j'ai dans la colonne A des mots.
Je souhaite faire pour tous les mots de la colonne A fair une modification et reporter le résultat dans la colonne B en phase de ce mot


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub foreach()
 
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
 
For Each chaine In Selection
 
'Garder la chaine de charactere a gauche de ' -'
chaine = Left(chaine, InStr(2, chaine, " -")) 
chaine = ActiveCell.Offset(0, 1)
Next chaine
 
 
End Sub
Avec ce bout de code je reste toujours sur la premiere ligne, je suis entrain de m'y agacer depuis environs 2 heures :-((


Merci d'avance pour votre aide
jerome