Decomposer une liste de nom

Bonjour

J'ai une liste de nom qui se trouvent dans la colonne "A" composer comme ceci:

Sharon Stone, Gene Hackman, Russell Crowe, Leonardo Dicaprio

La colonne fait 70 lignes et j'aimerai que les noms par un code VBA se retrouve dans la colonne "F" composé un sous l'autre comme ceci:

Sharon Stone

Gene Hackman

Russell Crowe

Leonardo Dicaprio ect..

Je vous remercie de votre aide

Cordialement

Max

Bonjour

A tester

Bonjour Valmax, Banzai, bonjour le forum,

Une ligne était séparée par des points-virgule d'où le code un peu plus long :

Sub Macro1()
Dim CEL As Range
Dim DEST As Range

Application.ScreenUpdating = False
For Each CEL In Range("B3:B" & Cells(Application.Rows.Count, 2).End(xlUp).Row)
    If UBound(Split(CEL.Value, ",")) > 0 Then
        For I = 0 To UBound(Split(CEL.Value, ","))
            Set DEST = IIf(Range("F3") = "", Range("F3"), Cells(Application.Rows.Count, 6).End(xlUp).Offset(1, 0))
            DEST.Value = Trim(Split(CEL.Value, ",")(I))
        Next I
    Else
        For I = 0 To UBound(Split(CEL.Value, ";"))
            Set DEST = IIf(Range("F3") = "", Range("F3"), Cells(Application.Rows.Count, 6).End(xlUp).Offset(1, 0))
            DEST.Value = Trim(Split(CEL.Value, ";")(I))
        Next I
    End If
Next CEL
Application.ScreenUpdating = True
End Sub

Bonjour Banzai, ThauTheme

Je vous remercie cela est Nickel

Bonne journée

Max