petit problème

[picronte53]

bonsoir le fil
je souhaiterai que dans le mesage outlook il me met
"Bonjour,
la validité de la carte de Mr"B" "c" matricule"D" arrive a echéance le
je vous transmet les papiers nécessaires pour faire la demande de chéque
Cordialement

Sub EnvoiUnMail()
Dim Pour As String
Dim Msg As String
Dim Sujet As String
Dim URLto As String
Dim X As Long
For X = 3 To Range("C65536").End(xlUp).Row
If Range("J" & X) = "X" Then
Pour = Range("K" & X)
Sujet = "Validité de la carte chronotachigraphe"
Msg = " la validité de la carte pour " & Range("C" & X) & " " & Range("D" & X) & " Matricule" & " " & Range("B" & X) & " arrive à échéance le " & Format(Range("H" & X), "dd/mm/yyyy")
URLto = "mailto:" & Pour & "?subject=" & Sujet & "&body=" & "Bonjour," & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If

Next X
ThisWorkbook.Save
ThisWorkbook.Close
End Sub