Probleme d'envoi mail

Sub MAIL()
Dim MailAd As String, Msg As String, Subj As String, URLto As String
Dim moncorps As String
Dim c As Range, cc As Range
    'fin des déclarations  %0A POUR RETOUR LIGNE 'remplacer par  vbLf
ActiveWorkbook.Save
With Sheets(1)
  For Each c In .Range("M2:M" & .[M65536].End(3).Row)
    If c <> "" Then
      For Each cc In .Range("A2:A" & .[A65536].End(3).Row)
        If cc = c Then
          moncorps = moncorps & " " & cc(1, 2) & "--" & cc(1, 3) & "--" & cc(1, 4) & "--" & cc(1, 5) & "--" & cc(1, 6) & "%0A"
        End If
      Next
      Subj = "Commande de pièces à " & c & " pour " & [H2] & " du " & .[H4]
      Msg = "Voici une série de pièces à nous faire passer:" & "%0A" & "%0A" & moncorps & "%0A" & "Merci d'avance"
      URLto = "mailto:" & c(1, 2) & "?subject=" & Subj & "&body=" & Msg
      ActiveWorkbook.FollowHyperlink Address:=URLto
      moncorps = ""
    End If
  Next c
End With
End Sub