Erreur 1004

Sub EnvoiMail()
  Dim ListeDest()
  Dim ListeComment()
  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("Tbbase[Mail]")
  'ListeComment() = Range("tbbase[Commentaire]")
    For i = LBound(ListeDest(), 1) To UBound(ListeDest(), 1)
    Set oMsg = oMsgApp.CreateItem(0)
    With oMsg
      .To = ListeDest(i, 1)
      .Attachments.Add sFichier
      .Subject = "Courrier ADVPSC"
      .Body = "Veuillez trouver ci-joint la pièce jointe." & Chr(10) & Chr(13) & _
        "Bonne journée"
      .Send
    End With
    Set oMsg = Nothing
  Next
  oMsgApp.Quit
  Set oMsgApp = Nothing
  MsgBox "Mail envoyé"
End Sub