Bonjour,
Un code à tester , à placer dans le code de la feuille
les adresses mail sont supposées être dans la colonne I de la feuille Excel
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Not Application.Intersect(Target, Column("I:I")) Is Nothing Then
If Target.Column = 9 Then ' = colonne I
Dim MailAd As String
Dim URLto As String
MailAd = Target
URLto = "mailto:" & MailAd
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
End Sub
Amicalement
Pierrot