Courriels outlook

Bonjour je souhaiterai qu'en cliquant sur une adresse mail celle-ci ouvre automatiquement un courriel Outlook afin d'envoyer un mail au destinataire

Aussi que la couleur orange et verte s'affiche à partir des cellules G8 et F8

Bonjour,

Voici un essai avec un code qui se déclenche au double-clic et qui doit ouvrir un nouveau mail avec l'adresse pré-remplie...

Pour l'instant, il n'y a ni sujet, ni objet fourni, ni pièce jointe :

'MODULE DE LA FEUILLE CONCERNEE
private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)
cancel = true
if target.value like "*@*.*" then call Mail(target.value)
end sub

'MODULE NORMAL
Sub Mail(sEmail as string)
Set oOutlook = createobject("Outlook.Application")
Set oMail = oOutlook.CreateItem(olMailItem)
With oMail
    .To = sEmail
    .body = "Bonjour,"
    .Display
End With
End Sub

Cdlt,