STXT sur ficher adresse mail

Bonjour,

j'ai dans une cellule en A1 une liste d'adresse mail séparé par un ; comme :

dupond@gmail.com; brigitte@sfr.fr; jerome@free.com

et je souhaiterai obtenir la liste de ces adresse mail mais dans une colonne avec une adresse mail par cellule

A1 : dupond@gmail.com
A2 : brigitte@sfr.fr ...........

Merci pour votre aide

Bonjour JEROME M, le forum,

Un essai ....par macro...

Sub Test()
 Dim Tablo, i As Integer
  Tablo = Split(Range("A1").Value, ";")
   Application.ScreenUpdating = False
    For i = 0 To UBound(Tablo)
     Range("A" & i + 1) = Trim(Tablo(i))
    Next i
End Sub

Cordialement,

Parfait, c'est exactement le résultat recherché