Franchement merci, j'ai finalement réussi.
Mais dit moi je veux essayer d'envoyer un mail via un bouton, j'ai effectuer ce code
Dim fichier As Variant
fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
MsgBox fichier
Dim mamessagerie As Object
Dim monmessage As Object
Set...