Sub Envoi_email()
MsgBox "Vous allez envoyer de la ligne 2 à la ligne " & a
Dim i As Long
For i = 2 To a
'ici la définition du corps final avec bonjour, la suite, puis message de fin
corps2 = "Bonjour " & Cells(i, "K").Value & vbNewLine & vbNewLine & _
"Voici vos données : " & Cells(i, "B").Value & vbNewLine & _
"Moyenne : " & Cells(i, "C").Value & vbNewLine & _
corps & vbNewLine & vbNewLine & _
"A bientôt"
'commande pour envoyer l'email avec outlook express
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" _
& Cells(i, "E").Value & "?subject=" & "vos données" & _
"&Body=" & corps2
Next i
End Sub