Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MailAd As String
Dim MailAd1 As String
Dim MailAd2 As String
Dim URLto As String
Dim Adresse As String
Dim Subj As String
Dim Msg As String
If ActiveCell = "" Then Exit Sub
MailAd1 = ActiveCell.Offset(0, 5)
MailAd2 = ActiveCell.Offset(1, 5)
MailAd = MailAd1 & ";" & MailAd2
Subj = "Tournoi "
Msg = "Vous avez un Match ce soir"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
Cancel = False
End Sub