Choix destinataire si croix pour envoi mail

Bonjour à tous

Novice en vba malgré plusieurs recherche voila mes questions le code ci dessous fonctionne à moins de l'améliorer

j'ai une feuille destinataire et une feuille pour un envoi plage sur cellule modulable en ligne, dans la feuille destinataire en colonne A destinataire principal, B ily une croix et C en copie et D une croix

Quant il y à une croix c'est pour sélectionner les contacts

mais je ne sais pas comment faire et mettre ca dans le code en .Item.To et .Item.Cc

Merci

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

    Dim Plage As Range
    On Error Resume Next
    derLig = Cells(Rows.Count, 2).End(xlUp).Row
    Set Plage = Range("A1:E" & derLig)

    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
       .Item.Cc
       .Item.Subject
       .Item.display
    End With
End Sub