Pb envoie email

[Eric D]

Bonsoir à toutes et à tous,

je souhaite envoyer un mail avec OE muni d'une pièce jointe. C'est là que le bas blaisse, je ne m'en sort pas. Ma pièce jointe est en fait une feuille de mon classeur que je copie avec Pastespécial pour le format, puis après je recopie mes cellules 'A1:AQ520' pour n'avoir que les valeurs et les couleurs. voir fil précédent si je fait un Paste spécial valeures, le fichier créer est trop volumineux. Voilà le code que j'ai pondu 'dans la douleur' et qui le fonctionne pas pouriez vous y jettez un coup d'oeil SVP.
Merci por votre aide.

La variable FichierTemp = 'monfichier.xls'
Les variables Msg et Sujet sont définies avant.

ThisWorkbook.Sheets('resmail').Copy 'feuille à copier (pour le format)
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=FichierTemp
Workbooks.Open FichierTemp
With Workbooks('monfichier.xls').Sheets('Feuil1').Range('A1') 'la première cellule de destination
.PasteSpecial Paste:=xlFormats, operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
For Li = 1 To 520
For co = 1 To 37
Workbooks('monfichier.xls').Sheets('Feuil1').Cells(Li, co) = ThisWorkbook.Sheets('Mail').Cells(Li, co)
Next co
Next Li
EmailAddr = ThisWorkbook.Sheets('Mail').Range('DE' & 1001)
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & EmailAddr & '?subject=' & Sujet & '&Body=' & Msg & ''
SendKeys '%I' & 'p' & FichierTemp & '~' & '%s'
ActiveWorkbook.Close

@+
Eric D