Sub suite()
Pardon, le code:
Sub mail ()
If MsgBox("SOUHAITEZ-VOUS ENVOYER LE POINT CA PAR EMAIL ?" & Chr(13) & Chr(10) & "( Une nouvelle fenètre OUTLOOK va être ouverte )", 36, "Envoyer Email") = vbYes Then
Dim OL As Object, myItem As Object, wDoc As Object, Rng As Object
Dim Fichier...