Formule qui peut remplacer "Convertir - Délimité"

Bonjour,

Je souhaiterais avoir une formule qui remplace la fonction d'Excel convertir - délimité.

Exemple dans ma cellule A1 j'ai le texte suivant "Denise, Pierre, Etienne, Jules, Marie", je voudrais avoir en B1 "Denise", en B2 "Pierre" et ainsi de suite.

Merci d'avance pour votre aide

Bonjour à tous,

Une proposition via Power Query ?

Bonjour à tous,

Une autre proposition :

Sub TestCelluleDestination()
    Prenoms Range("A1"), Range("B1")
End Sub

Sub Prenoms(ByVal ChaineATraiter As String, ByVal CelluleDestination As Range)

Dim I As Integer
Dim TabChaine As Variant

    TabChaine = Split(ChaineATraiter, ",")

    If UBound(TabChaine) > 0 Then
       For I = LBound(TabChaine) To UBound(TabChaine)
           CelluleDestination.Offset(I + 1, 0) = TabChaine(I)
       Next I
    End If

End Sub