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 Corps As String
If ActiveCell = "" Then Exit Sub
MailAd1 = ActiveCell.Offset(0, 5)
MailAd2 = ActiveCell.Offset(1, 5)
MailAd = MailAd1 & ";" & MailAd2
Subj = "Tournoi PACCIARELLI"
Corps = ""
Corps = Corps & "Bonjour" & vbCrLf
Corps = Corps & "" & vbCrLf
Corps = Corps & " Ce petit message pour vous rappeler, que vous avez un Match ce soir"
Corps = Corps & "" & vbCrLf
Corps = Corps & "" & vbCrLf
Corps = Corps & "Cordialement"
Corps = Application.WorksheetFunction.Substitute(Corps, vbCrLf, "%0D%0A")
'Msg = "Vous avez un Match ce soir" & vbCrLf
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Corps
ActiveWorkbook.FollowHyperlink Address:=URLto
Cancel = False
End Sub