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