Envoi de mail par VBA en fonction d'une combobox

Bonjour à tous,

je souhaite faire un envoi de mail en automatique.

J'ai ce code de début qui fonctionne

'ActiveSheet.Range("E74:L90").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "bonjour, essai..." & Range("A6") & "toto"
    .Item.To = Range("C2") '"adresse mail"
    .Item.Subject = "essai"
    '.Item.Send
End With

Mais pour fonctionner correctement il faudrait que j'envoi pour mail en fonction du choix de la colonne D je sélectionne la ligne associer à ma colonne D.

Je vous joins mon exemple

par exemple pour la ligne sélectionne "Jxxx5" sur la combobox j'aimerais faire apparaitre "COXXXX5" (col A) et" E5" (col J)

Je reste dispo pour plus info.

Merci d'avance