Automatisation d'envoi courriel avec cc et p. j. personnalisée

Bonjour,
J'essaie de créer une macro dans Excel qui me permettrait d'envoyer automatiquement un courriel avec une personne en CC et une p. j. personnalisée pour chaque destinataire.
J'utilise la macro suivante, mais j'ai toujours une fenêtre "erreur automation" qui pop... Une idée du problème?

Voici le code :

Option Explicit

Sub EnvoiCourriel()
Dim ListeDest()
Dim ListeCopie()
Dim ListeFichier()
Dim i As Long
Dim oMsgApp As Object
Dim oMsg As Object
Dim sListeDest As String
Dim sListeCopie As String
Dim sListeFichier As String


Set oMsgApp = CreateObject("Outlook.Application")

ListeDest() = Range("tblBasePubli[COURRIEL1]")
ListeCopie() = Range("tblBasePubli[COURRIEL2]")
ListeFichier() = Range("tblBasePubli[CHEMIN CONCATÉNÉ]")

For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1)
Set oMsg = oMsgApp.CreateItem(0)
With oMsg
.to = ListeDest(i, 1)
.cc = ListeCopie(i, 1)
.attachments = ListeFichier(i, 1)
.Subject = "Bonjour"
.body = "Bonjour," & chr(13) & "BlaBlaBla." & chr(13) & "Bonne Journée!" & chr(13) & "signé X"
.send
End With
Set oMsg = Nothing
Next

oMsg.Quit
Set oMsgApp = Nothing
MsgBox "Courriels envoyés avec succès"

End Sub