sélection fichiers joint au mail automatique

Bonjour à tous
actuellement j'envoi des mails par mon classeur excel avec des fichiers joint qu'il faut sélectionner grace à la boite de dialogue comme ceci:
'Affiche la boîte dialogue "Ouvrir" (C'est l'argument True qui autorise la multisélection)
Fichiers = Application.GetOpenFilename("Tous les fichiers (*.*),*.*", , , , True)

puis dans la création du mail " .Attachments.Add Fichiers(i) " comme ceci:

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = MailTo ' Destinataire
.CC = MailCC ' Copie
.BCC = ""
.Subject = "le sujet")
.Body = "le corps du message"
' ci dessous les fichiers sélectionner dans la boite de dialogue
If IsArray(Fichiers) Then
For i = 1 To UBound(Fichiers)
.Attachments.Add Fichiers(i)
Next


Comment éviter la boite de dialogue pour sélectionner automatiquement le contenue d'un dossier
par exemple C:\carton\ tous les fichiers dans le dossier "carton" à la racine C:
Si le dossier est vide on arrête la procédure.

Merci pour votre aide