Une solution VBA dans le fichier en pièce jointe avec la macro ci-dessous :
Code:
Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variabe dest (DESTination)
Dim tm() As String 'décalre le tableau de variables indexées tm (Tableau de Mots)
Dim x As Integer 'déclare la variable x
For Each cel In Sheets("Feuil1").UsedRange 'boucle 1 : sur toutes les cellules renseignées cel de l'onglet "Feuil1"
Set dest = Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) 'définit la cellule de destination
tm = Split(cel.Value, ", ", -1) 'définit le tableau des mots
For x = 0 To UBound(tm) 'boucle 2 sur tous les mots du tableau
dest.Offset(x, 0) = tm(x) 'place le mot du tableau en le décalant d'une ligne à chaque mot
Next x 'prochain mot du tableau de mots
Next cel 'prochaine cellule de la boucle 1
End Sub
La macro décompose les mots des cellules de l'onglet Feuil1 dans les cellules de l'onglet Feuil2...
Il y a aussi :
Sélectionner la colonne
Menu Outils - Convertir
Délimité - Suivant - cocher "virgule" - Terminer
Sélectionner toute la plage
Menu Edition - Remplacer
Rechercher : espace
Remplacer par : rien (laisser vide)
Remplacer tout.