Bonjour a tous,
 
apres avoir fouille les forums francais et etrangers, je tourne en rond.
 
Excel :
 
J'ai exporte des emails de Outlook 2007 vers Excel 2007
 
Je me retrouve donc maintenant un fichier excel compose de differentes colonnes.
 
Dans la colonne "Adresse email envoyeur" et "Adresses des destinataires", qui m'interessent, je suis souvent confronte a la presence de plusieurs adresses, separees par une virgule ou un point virgule. " ; " / " , "
 
Je souhaite trier toutes adresses email de ma boite afin de creer une liste.
 
Ma situation est la suivante  :  
Colonne A  
email1@mail.com
 
Colonne B - destinataire
email2@mail.com;email3@mail.com
 
Colonne C - en Copie Cc
email4@mail.com;email5@mail.com;email6@mail.com
 
 
Je souhaiterez un truc afin de pouvoir reclasser ces emails separement dans une meme colonne.  
Je pourrai ensuite enlever les doublons etc etc...
 
Afin de mieux illustrer ma requete je recherche a arriver au resultat suivant
 
Colonne D
email1
email2
email3
email4
email5
email6  
 
je ne souhaite pas utiliser de macro et travaille sous excel 2007.  
 
Un grand merci pour avance pour votre aide a tous.
 
090178

Bonjour,
 
Une Macro semble nécessaire,
donc, si tu ne peux faire autrement, je te propose:
 
Sub sspplliitt()
Dim cola() As String
Dim colb() As String
 
Dim colc() As String
Sheets("feuil1" ).Activate
Range("d:d" ).Clear
 
dlib = 1
boubou = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To boubou
cola = Split(Cells(i, 1), ";" )
colb = Split(Cells(i, 2), ";" )
colc = Split(Cells(i, 3), ";" )
 
 
uba = UBound(cola)
ubb = UBound(colb)
ubc = UBound(colc)
For j = 0 To uba
Cells(dlib, 4) = cola(j)
dlib = dlib + 1
Next j
For j = 0 To ubb
Cells(dlib, 4) = colb(j)
dlib = dlib + 1
Next j
For j = 0 To ubc
Cells(dlib, 4) = colc(j)
dlib = dlib + 1
Next j
 
Next i
 
End Sub
 
 
Cordialement