salut je pense que c gérable comme cela, mais g pas essayé avec un autre prog que outlook...
Sub email_Click()
Dim net As Variant
net = Shell("C:\Program Files\ton serveur mail (aol...)", 1)
Dim wbk As Workbook
Dim a As String
ActiveWorkbook.Sheets.Copy
Set wbk = ActiveWorkbook
a = TextBox2.Text
wbk.SendMail (a), "le nom de ta feuille", True
wbk.Close SaveChanges:=False
Set wbk = Nothing
Exit Sub
End Sub
avec dans le textbox2 l'adresse e-mail de ton destinaire
si ca te vas pas dis le moi, on essaiera de trouver une autre solution. Mais ca devrait aller
A+
Valer