Ouvrir Outlook en cliquant sur une adresse mail

Bonjour à tous

Je souhaiterais, en cliquant sur une adresse mail contenue dans une cellule, que celle ci m'ouvre Outlook (ou tout autre logiciel de messagerie).

Tout en sachant que la cellule sur laquelle je veux cliquer change selon la personne (liste déroulante)

Pour mieux me faire comprendre, je vous joint un fichier exemple (deux feuilles).

Merci d'avance

Bonjour

Code de Feuil2

1)En cliquant sur la cellule C2 (en venant d'ailleurs) celui qui est installé

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("C3")) Is Nothing Then 
Dim MailAd As String
Dim URLto As String 
MailAd = Target
URLto = "mailto:" & MailAd 
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
End Sub

2) en sélectionnant une letre dans la liste déroulante

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("C3")) Is Nothing Then 
Dim MailAd As String
Dim URLto As String 
MailAd = Target.Offset(0,1)
URLto = "mailto:" & MailAd 
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
End Sub

Cordialement

Bonjour et merci Amadéus pour votre réponse

C'est exactement ce qu'il me fallait

Cependant, en intégrant et en adaptant ce code dans mon fichier, il y a un petit soucis.

J'ai déjà une macro associée à ma feuille, qui me permet de me rendre sur un site internet, qui change selon le client choisi grâce à ma liste déroulante :

"Client" -> "Email" et "Site internet"

J'essaye de combiner les deux programmes mais rien n'y fait. Les deux marchent de façon indépendante, mais pas conjointement.

Voici le code de ma macro pour me diriger vers une page internet :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lien As String

lien = Worksheets("ANNUAIRE").Range("CM23").Value

Worksheets("Recherche par fournisseur").Range("G11").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=lien, _

TextToDisplay:=lien

End Sub

Dans ma feuille personnelle, l'e-mail est présent dans la cellule G10.

Si vous pouviez m'éclairer un peu, ça serait génial

Merci d'avance !

Quelqu'un aurait une idée ?

Merci beaucoup

Bonjour

Peux-tu envoyer un fichier exemple représentatif s'il te plait ?

Cordialement

Bonjour Amadéus,

Voici le fichier exemple :

Merci beaucoup pour votre aide

Bonjour

Comme cela?

cordialement

Bonsoir !

Oui c'est bien ça sauf que je ne souhaite pas que les pages internet et outlook s'ouvrent automatiquement après changement de "lettre", mais juste quand je clique dessus

Je gère une base de données clients, donc j'ai d'autres données telles que l'adresse, etc.

En tout cas merci beaucoup

Cordialement

Bonjour

Nouveau fichier

Cordialement

Bonjour Amadéus

Génial !

Je vais essayer de comprendre la synthaxe et adapter ça dans ma feuille

Merci de m'avoir accordé du temps, c'est super

Cordialement