Changer de ligne en fonction d'un caractere

Bonjour à tous !

C'est mon tout premier post sur ce forum car je commence à apprendre à coder petit à petit .

Voilà mon problème:

Je dispose d'une liste d'adresse mail extraite d'outlook (environ 1000 adresses) toutes dans une même cellule sous la forme ci dessous

nom.prenom@mail.com

; NOM Prenom

nom2.prenom2@mail.com

; NOM2 Prenom2

nom3.prenom3@mail.com

; NOM3 Prenom3

etc...

Je cherche à faire en sorte d'avoir une adresse par ligne et non toutes les adresses dans une même cellule (tant pis pour les noms et prénoms). J'ai beau effectuer des recherches sur le sujet je trouve que des macros pour sauter à ligne (atl + Enter) ce n'est pas ce que je recherche.

Peut être qu'utiliser le point virgule comme base ? Je ne sais pas...

Merci d'avance !

K1000

Bonjour,

une proposition via une macro (extrait les données qui se trouvent en A1)

Sub aargh()
    t = Split(Range("A1"), vbLf)
    k = 2
    For i = LBound(t) To UBound(t)
        If InStr(t(i), ";") = 0 Then k = k + 1: c = 1 Else c = 2
        Cells(k, c) = Replace(t(i), "; ", "")
    Next i
End Sub

C'est PARFAIT.

Merci beaucoup pour ton aide,je gagne un temps précieux !

Bonne journée !