Sub Envoi()
Dim destinataire, sujet, fichierjoint
' Destinataire ,sujet et corps du mail
destinataire = [B1]
sujet = [B2]
body = [B3] & Chr(10) & Chr(10) & [B4] & Chr(10) & [B5] & Chr(10) & [B6] & Chr(10) & [B7]
' Construction du message format thunderbird
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body ' & ","
' Construction mail
Call Shell(strcommand, vbNormalFocus)
End Sub