remplacer virgule par nouvelle cellule

=STXT(", "&$B$1&",";TROUVE("µ";SUBSTITUE(", "&$B$1;",";"µ";LIGNE()))+2;TROUVE(
"¤";SUBSTITUE(SUBSTITUE(","&$B$1&",";",";"µ";LIGNE());",";"¤";LIGNE()))-TROUVE(
"µ";SUBSTITUE(", "&$B$1;",";"µ";LIGNE()))-1)

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