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