Pièces jointes ds mail par Excel

Bonsoir le forum,

Ca y est, mon envoie de mail fonctionne bien juste une petite question. J'ai le Code suivant:

For ct = 1 To 10 ' boucle de lecture des adresses
If Sheets('Mail').Range('DE' & 1000 + ct).Value <> '' Then
Dest = ThisWorkbook.Sheets('Mail').Range('DE' & 1000 + ct).Value
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Dest & '?subject=' & Sujet & '&Body=' & Msg & ''
SendKeys '%I' & 'p' & joint & '~' & '%s'
End If
Next ct

avec Dim joint As String pour le nom de fichier.
Quand j'en est 1, ok. Mais plusieurs soucis. La structure pour plusieurs fichiers est la suivante: joint = joint & ';' & Source(i)
Comment arranger le code pour qu'il prenne plusieurs fichiers en pièces jointe.

Merci pour votre aide.
Eric D