Liste mail

Bonjour,
J'ai ce code pour la selection d'une plage excel pour envoyer en corps de message outlook 2010 ce qui fonctionne bien
mais c'est pour la gestion des listes
en destinataires je vais cherche une liste dans la cellule A17 mais dans cette cellule la liste est écrite de cette façon az@a.fr;ez@r.fr;@d.com au total 10 contacts
idem pour Cc cellule A18 25 contacts ce qui n'est pas évident pour modifier les listes
quelle est le moyen le plus simple de gérer les listes
merci

Sub Envoimail()
    ' envoi d'une plage de cellules via Outlook
    ' Outlook doit être démarré.

    Dim Plage As Range
    On Error Resume Next
    Set Plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "Aucune plage sélectionnée"
        Exit Sub
    End If
    On Error GoTo 0
    Plage.Select
    ' Affiche le message dans le classeur
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
       '"Item" représente un objet Outlook "MailItem".
       .Item.To = Range("A17").Value
       .Item.Cc = Range("A18").Value
       .Item.Subject = Range("A19").Value
       .Item.display
    End With
End Sub