Bon finalement, j'ai réussi par magie :
If MsgBox("Envoi TO " + semailTO + " CC " + semailCC + " FROM " + sFrom, vbOKCancel, "Envoi Email") = vbCancel Then
Exit Sub
End If
.Send
Call MsgBox("Le message a été envoyé avec succès", vbInformation, "Sending " & sSujet & " via email")
End With
Mon fichier est maintenant au top!!
Merci encore pour ton aide et tes précieux conseils