Envoie par mail d'une ou plusieurs pièces jointes

Bonjour,
J'utilise ce code dans un fichier qui produit un relevé mensuel des dépenses des employés et parfois ils ont aucune ou plusieurs pièces justificatives à joindre.
Malheureusement la macro permet d'acheminer qu'une seule pièce, pouvez-vous m'orienter sur les commandes à utiliser pour en joindre plus d'une.


retour = MsgBox("Souhaitez vous joindre un fichier ?", vbQuestion + vbYesNo, "joindre un fichier")
If retour = vbYes Then
fichier = Application.GetOpenFilename("tous les fichiers(*.*),*.*")

Set envoiecourriel = ThisWorkbook.Sheets("lettre_courriel")
ActiveSheet.Range("D8:t122").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Item.To = envoiecourriel.Range("ad1").Value
.Item.Subject = envoiecourriel.Range("ad2").Value
.Item.cc = envoiecourriel.Range("ad3").Value
.Item.attachments.Add fichier
.Item.send 'envoie
End With
Else

Set envoiecourriel = ThisWorkbook.Sheets("lettre_courriel")
ActiveSheet.Range("D8:t122").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Item.To = envoiecourriel.Range("ad1").Value
.Item.Subject = envoiecourriel.Range("ad2").Value
.Item.cc = envoiecourriel.Range("ad3").Value
.Item.send 'envoie
End With
End If