Send ne fonctionne pas pour mon publipostage

Bonjour,
lorsque je lance ma macro Publipostage,le code bute sur .Send

erreur d'exécution '287':

ci-dessous le code,

merci pour votre aide

Sub EnvoiMail()
Dim ListeDest
Dim ListeIdentifiant
Dim ListeMDP
Dim i As Long
Dim oMsgApp As Object
Dim oMsg As Object
Dim sListeDest As String
Dim sFichier As String


sFichier = Application.GetOpenFilename(, , "Sélectionner le fichier à envoyer")
If sFichier = "" Then
MsgBox "Aucun fichier sélectionné, opération annulée"
Exit Sub

End If

Set oMsgApp = CreateObject("Outlook.Application")

ListeDest = Range("Tableau1[MAIL]")
ListeIdentifiant = Range("Tableau1[Identifiant]")
ListeMDP = Range("Tableau1[MDP]")


For i = LBound(ListeDest, 1) To UBound(ListeDest, 1)

Set oMsg = oMsgApp.CreateItem(0)
With oMsg

.To = ListeDest(i, 1)

.Attachments.Add sFichier

.Subject = "Votre Identifiant & Mdp"

.Body = "Veuillez trouver ci-joint Votre Identifiant et Mot de passe à l'application taratata." & Chr(10) & Chr(13) & _
"Ainsi que la procédure pour utiliser le portail taratata" & Chr(10) & Chr(13) & _
"Identifiant de connexion: " & ListeIdentifiant(i, 1) & Chr(10) & Chr(13) & _
"MDP: " & ListeMDP(i, 1) & Chr(10) & Chr(13) & _
"Cordialement," & Chr(10) & Chr(13) & _
"Bonne Journée"

'.Save

'.Display
.Send

End With
'Set oMsg = Nothing
Next

MsgBox "Mail envoyé"
End Sub