Fichier Excel envoyer par Outlook

Bonjour,

J'ai encore besoin de votre aide

J'ai une macro qui est pas tout a fait a point

Je veux envoyer mon classeur Excel par outlook a l'aide de ma macro a plusieurs destinataires en même temps.

Ma liste d'adresse mail est a l'onglet TABLES a la colonne P

Lorsque j’appuie sur le bouton pour lancer la macro, la fenêtre outlook apparait et seulement une adresse courriel est inclus dans les destinataires. En plus, une erreur dans le VBA en jaune (voir photo)

voici mon code

Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail, RP
Dim destinataire As String
Dim contenu As String
Dim chemin As String

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)

ActiveWorkbook.Save ' sauvergarde d'abord le fichier

chemin = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name ' chemin fichier

'Texte du messge à adapter
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13) ' saut de ligne
contenu = contenu & "Fichier MACHINERIE A Jour....."
contenu = contenu & Chr(10) & Chr(13)
contenu = contenu & "Cordialement"
contenu = contenu & Chr(10) & Chr(13)
contenu = contenu & "Signature"

For n = 2 To 13 ' Boucle sur les lignes des adresses
destinataire = Sheets("TABLES").Range("P" & n)
    With oBjMail
        .To = destinataire ' le destinataire</souligne>
        .Subject = "Fichier Excel"   ' l'objet du mail ' à modifier
        .Body = contenu 'le corps du mail ..son contenu
        .Attachments.Add chemin '"C:\Documents\MailAgents.xls" ' ou Nomfichier
        .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
        '.Send ' après les  essais enlever l'apostrophe devant cette ligne pour que les mails soient bien envoyés
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
Next
End Sub

EDIT : Ajout des balises de code