Note: The other languages of the website are Google-translated. Back to English

 Comment envoyer un e-mail à plusieurs destinataires dans une liste depuis Excel via Outlook?

Si vous avez plusieurs adresses e-mail dans une colonne de feuille de calcul et que vous souhaitez maintenant envoyer un e-mail à cette liste de destinataires à partir d'Excel directement sans ouvrir Outlook. Cet article, je vais parler de la façon d'envoyer des e-mails à plusieurs destinataires à partir d'Excel en même temps.

Envoyer un e-mail à plusieurs destinataires depuis Excel avec le code VBA

Envoyer un e-mail à plusieurs destinataires avec le classeur actuel en tant que pièce jointe à l'aide du code VBA


flèche bleue bulle droite Envoyer un e-mail à plusieurs destinataires depuis Excel avec le code VBA

Vous pouvez utiliser un code VBA pour envoyer un message à plusieurs destinataires à la fois, procédez comme suit:

1. Maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: envoyer un e-mail à plusieurs destinataires

Sub sendmultiple()
'updateby Extendoffice
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Display
    End With
End Sub

3. Et puis appuyez sur F5 clé pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la liste d'adresses, voir capture d'écran:

doc envoyer plusieurs destinataires 1

4. Puis clique OKet un Outlook Votre message s'affiche, vous pouvez voir que toutes les adresses e-mail sélectionnées ont été ajoutées dans le À champ, puis vous pouvez entrer le sujet et composer votre message, voir capture d'écran:

doc envoyer plusieurs destinataires 2

5. Après avoir terminé le message, veuillez cliquer sur Envoyer et ce message sera envoyé à ces destinataires dans votre liste de feuilles de calcul.


flèche bleue bulle droite Envoyer un e-mail à plusieurs destinataires avec le classeur actuel en tant que pièce jointe à l'aide du code VBA

Si vous devez envoyer un message à plusieurs destinataires avec le classeur actuel en pièce jointe, vous pouvez appliquer le code VBA suivant.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: envoyer un e-mail à plusieurs destinataires avec le classeur actuel en pièce jointe

Sub EmailAttachmentRecipients()
'updateby Extendoffice
    Dim xOutlook As Object
    Dim xMailItem As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutlook = CreateObject("Outlook.Application")
    Set xMailItem = xOutlook.CreateItem(0)
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    With xMailItem
        .To = xEmailAddr
        .CC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set xOutlook = Nothing
    Set xMailItem = Nothing
End Sub

3. Après avoir collé le code, appuyez sur F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous rappeler de sélectionner les adresses auxquelles vous souhaitez envoyer un message, voir capture d'écran:

doc envoyer plusieurs destinataires 3

4. Puis clique OK bouton et un Outlook Votre message s'affiche, toutes les adresses e-mail ont été ajoutées dans le À champ, et votre classeur actuel a également été inséré en tant que pièce jointe, puis vous pouvez entrer le sujet et rédiger votre message, voir capture d'écran:

doc envoyer plusieurs destinataires 4

5. Puis clique Envoyer pour envoyer ce message à la liste des destinataires avec le classeur actuel en pièce jointe.


Envoyez des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes:

Avec Kutools pour Excel's Envoyer des emails fonctionnalité, vous pouvez rapidement envoyer des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes d'Excel via Outlook selon vos besoins. Dans le même temps, vous pouvez également CC ou Cci les messages à une personne spécifique. Cliquez pour télécharger Kutools for Excel!

doc envoyer des e-mails personnalisés 18 1


Article connexe:

Comment envoyer des e-mails de masse personnalisés à une liste depuis Excel via Outlook?


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (20)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
C'est génial, exactement ce que je veux. Existe-t-il de toute façon une fonctionnalité permettant d'ajouter un message à la ligne d'objet à l'aide de code .... Je ne veux rien dans la boîte de message
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Le code VBA fonctionne bien pour moi merci. Existe-t-il un moyen de créer une cellule avec une sorte de bouton qui déclenche la fenêtre contextuelle "sélectionner la liste de diffusion" ? Jacques
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, merci pour le code. Existe-t-il un moyen de créer un bouton de commande sur Excel, puis en cliquant sur ce bouton, la même feuille Excel peut être envoyée à plusieurs destinataires en pièce jointe.
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je faire cela en utilisant la ligne BCC ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Robert,
Après avoir exécuté le code, la nouvelle fenêtre de message s'ouvrira, il vous suffit d'insérer la ligne BCC sous l'onglet Option, voir la capture d'écran suivante :


J'espère que cela peut vous aider, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Un moyen de l'utiliser pour envoyer à partir d'un e-mail partagé ? Je n'arrive pas à insérer un champ .SendOnBehalfOf.
Ce commentaire a été minimisé par le modérateur sur le site
Salut ! Chaque mois, je devrais envoyer le même e-mail pour différents fournisseurs, mais ils ne devraient pas être dans le même e-mail ..... comment pourrais-je envoyer le même e-mail pour différentes destinations sans que tout le monde soit dans le même e-mail ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Vinicius,
Pour envoyer le même e-mail à plusieurs destinataires séparément, l'article suivant peut vous aider, veuillez le consulter.
https://www.extendoffice.com/documents/excel/3560-excel-send-personalized-email.html
Ce commentaire a été minimisé par le modérateur sur le site
Matin,


Je suis nouveau à essayer d'écrire et d'utiliser des macros dans Excel. Ma première tentative a été d'essayer de créer un sous-ensemble d'e-mails de masse à partir d'une grande liste principale. J'ai coupé et collé la première routine, puis j'ai essayé de l'utiliser tout ce qu'il a fait était de mettre en évidence les cellules que j'avais demandées. aucun e-mail Outlook n'a été créé, qu'est-ce que j'ai fait de mal ? Pour développer ma demande actuelle, je souhaite vraiment cibler les e-mails par code postal ou d'autres sous-ensembles. comment créer une macro qui recherchera une colonne pour un code postal donné et créera un e-mail avec tous les destinataires trouvés ?

Je vous remercie

Steve
Ce commentaire a été minimisé par le modérateur sur le site
J'ai ce code, mon problème est qu'il crée un e-mail à chaque fois que la condition n'est pas complète, mais je veux mettre toutes les informations qui n'atteignent pas la condition dans un seul e-mail

Sous EnviarCorreo()
Dim OutApp en tant qu'objet
Dim OutMail en tant qu'objet
Dim lLastRow As Long
Dim lRow As Long
Dim sSendTo en tant que chaîne
Dim sSendCC As String
Dim sSendBCC As String
Dim sSubject As String
Dim sTemp en tant que chaîne

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

' Modifiez les éléments suivants si nécessaire
sEnvoyer = ""
sEnvoieCC = ""
sEnvoyerBCC = ""
sSubject = "Date d'échéance atteinte"

Définir OutMail = OutApp.CreateItem(0)

lLastRow = Cells(Rows.Count, 3).End(xlUp).Row
Pour lRow = 3 À lLastRow
Si Cellules(lLigne, 9) <> "S" Alors
Si Cellules(lLigne, 2) <= Date Alors

On Error Resume Next
Avec OutMail
.À = sEnvoyerÀ
Si sEnvoieCC > "" Alors .CC = sEnvoieCC
Si sEnvoieBCC > "" Alors .BCC = sEnvoieBCC
.Sujet = sSujet

sTemp = "Bonjour !" & vbCrLf & vbCrLf
sTemp = sTemp & "La date d'échéance a été atteinte "
sTemp = sTemp & "pour ce projet :" & vbCrLf & vbCrLf


'VOICI CE QUE JE VEUX RÉPÉTER SUR LE CORPS DE L'E-MAIL
' Suppose que le nom du projet est dans la colonne B
sTemp = sTemp & "ID :"
sTemp = sTemp & " " & Cellules(lLigne, 1)
sTemp = sTemp & " Description : "
sTemp = sTemp & " " & Cellules(lLigne, 5)
sTemp = sTemp & " Veuillez prendre le bon"
sTemp = sTemp & "action." & vbCrLf & vbCrLf
sTemp = sTemp & " Merci !" & vbCrLf
'JUSQU'ICI



.Corps = sTemp
' Remplacez ce qui suit par .Send si vous souhaitez
' envoyer le message sans l'examiner au préalable
.Afficher
Terminer par
Définir OutMail = Rien

Cellules(lLigne, 9) = "S"
Cells(lRow, 10) = "E-mail envoyé le : " & Now()
Si fin
Si fin
Ligne suivante
Définir OutApp = Rien
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de pimper le code de choix des CC dans une liste de la même manière après avoir choisi les TO ? Avec le code existant, il n'est pas possible de choisir des CC de la même manière que les TO (adresses principales). 
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Eugen, heureux de vous aider. Il est possible de pimper le code de choix des CC dans une liste de la même façon après avoir choisi les TO. Et le code est fondamentalement le même avec le code VBA des TO. Une seule modification doit être apportée. Changez simplement le ".To = xEmailAddr" en ".Cc = xEmailAddr". Veuillez voir la capture d'écran. Et vous pouvez choisir les CC et les TO dans une liste en même temps. Assurez-vous simplement que ".To = xEmailAddr" et ".Cc = xEmailAddr" sont tous inclus dans le code VBA. Veuillez coller le code suivant dans la fenêtre du module.
Sous envoyermultiple()
'mise à jour par Extendoffice
Dim xOTApp en tant qu'objet
Estomper xMItem en tant qu'objet
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Veuillez sélectionner la liste d'adresses :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
Set xOTApp = CreateObject("Outlook.Application")
Pour chaque xCell dans xRg
Si xCell.Value Comme "*@*" Alors
Si xAdrEmail="" Alors
xEmailAddr = xCell.Valeur
autre
xAdrEmail = xAdrEmail & ";" & xCell.Value
Si fin
Si fin
Suivant
Définir xMItem = xOTApp.CreateItem(0)
Avec xMItem
.To = xAdrEmail
.Cc = xAdrEmail
.Afficher
Terminer par
End Sub

J'espère que cela peut résoudre votre problème. Bonne journée. Cordialement, Mandy
Ce commentaire a été minimisé par le modérateur sur le site
J'essaie de faire en sorte qu'Excel envoie un e-mail à plusieurs destinataires et je peux obtenir tout ce dont j'ai besoin, mais il refuse de mettre l'adresse e-mail dans la zone À. Voici le code avec lequel j'ai travaillé. Quelqu'un peut-il m'aider à comprendre ce que je fais mal? Merci beaucoup!

Sous Macro1 ()
Dim rngCell As Range
Dim rngMyDataSet As Range
Dim Rng As Range
Dim OutApp en tant qu'objet
Dim OutMail en tant qu'objet
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As String
Estomper le destinataire de l'e-mail en tant que plage
Atténuer la signature en tant que chaîne
Application.ScreenUpdating = Faux
Avec ActiveSheet
Si .FilterMode Alors .ShowAllData
Définir Rng = .Range("AK6", .Cells(.Rows.Count, 1).End(xlUp))
Terminer par
Pour chaque rngCell dans Rng
Si rngCell.Offset(0, 6) > 0 Alors

ElseIf rngCell.Offset(0, 5) > Évaluer("Aujourd'hui() +7") Et _
rngCell.Offset(0, 5).Value <= Evaluate("Aujourd'hui() +30") Alors
rngCell.Offset(0, 6).Value = Date

Set OutApp = CreateObject("Outlook.Application")
Définir OutMail = OutApp.CreateItem(0)

strbody = "Selon mes informations, votre contrat " & Range("A6").Value & " doit être révisé le " & rngCell.Offset(0, 5).Value & vbNewLine & _
"Veuillez consulter ce contrat avant la date pertinente et m'envoyer par e-mail toutes les modifications que vous apportez à ce contrat. S'il est renouvelé, veuillez remplir la feuille de couverture du contrat qui se trouve dans le dossier Tout le monde et envoyez-moi le nouveau contrat original. "
EmailSendTo = rngCell.Offset(0, 0).Value
EmailSubject = Sheets("sheet1").Range("A6").Value
Signature = "C:\Documents and Settings\" & Environ("rmm") & _
"\Application Data\Microsoft\Signatures\rm.htm"
On Error Resume Next
Avec OutMail
.To = EmailEnvoieÀ
.CC = "hhh@gmail.com"
.BCC = ""
.Subject = EmailSubject
.Corps = strcorps
.Afficher
Send_Value = Mail_Recipient.Offset(i - 1).Value
Terminer par
En cas d'erreur GoTo 0
Définir OutMail = Rien
Définir OutApp = Rien

Si fin

Suivant rngCell
Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Diane,
Peut-être pouvez-vous appliquer le code ci-dessous :

Sub Macro1()
Dim rngCell As Range
Dim Rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As String
Dim Signature As String
Application.ScreenUpdating = False
On Error Resume Next
With ActiveSheet
  If .FilterMode Then .ShowAllData
  Set Rng = .Range("AK6", .Cells(.Rows.Count, 1).End(xlUp))
End With
Set OutApp = CreateObject("Outlook.Application")
For Each rngCell In Rng
  If rngCell.Offset(0, 6) > 0 Then
    If rngCell.Offset(0, 5).Value > Evaluate("Today() +7") And _
       rngCell.Offset(0, 5).Value <= Evaluate("Today() +30") Then
      rngCell.Offset(0, 6).Value = Date
    End If
    Set OutMail = OutApp.CreateItem(0)
    MailBody = "According to my records, your contract " & Range("A6").Value & " is due for review on " & rngCell.Offset(0, 6).Value & vbNewLine & _
               "Please review this contract prior to the pertinent date and email me with any changes you make to this contract. If it is renewed, " & _
               "please fill out the Contract Cover Sheet which can be found in the Everyone folder and send me the new original contract."
    
    EmailSendTo = rngCell.Offset(2, 6).Value   'Please specify the row and column number of the addresses in the filtered data range,please change the number 2 and 6 to your need
    EmailSubject = Sheets("sheet1").Range("A6").Value
    Signature = "C:\Documents and Settings\" & Environ("rmm") & _
                "\Application Data\Microsoft\Signatures\rm.htm"
    With OutMail
      .To = EmailSendTo
      .CC = "hhh@gmail.com"
      .BCC = ""
      .Subject = EmailSubject
      .Body = MailBody
      .Recipients.ResolveAll
      .Display
    End With
  End If
Next rngCell
Set OutMail = Nothing
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub



EmailSendTo = rngCell.Offset(2, 6).Value, vous devez remplacer les numéros 2 et 6 par le numéro de ligne et de colonne en fonction de votre plage de données. Cette plage contient les adresses e-mail auxquelles vous souhaitez envoyer.

S'il vous plaît essayez, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
Merci mais malheureusement ça n'a pas marché. J'obtiens toujours les mêmes résultats.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Diane,
Dans ce cas, veuillez fournir une capture d'écran ou un fichier joint des données de la feuille de calcul afin que nous puissions déterminer où se situe le problème.
Ou vous pouvez décrire votre problème plus clairement et plus en détail.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Vous trouverez ci-dessous le code actuel que j'utilise, mais il ne mettra pas chaque adresse e-mail dans la zone TO, uniquement la première adresse e-mail dans chacune d'elles. Fait également la même chose avec le SUJET et dans le message électronique, il utilise simplement la même chose encore et encore. Je ne sais pas comment joindre la feuille de calcul à cet e-mail.

Sous Macro1 ()
Dim rngCell As Range
Dim rngMyDataSet As Range
Dim Rng As Range
Dim OutApp en tant qu'objet
Dim OutMail en tant qu'objet
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As Range
Estomper le destinataire de l'e-mail en tant que plage
Atténuer la signature en tant que chaîne
Application.ScreenUpdating = Faux
Avec ActiveSheet
Si .FilterMode Alors .ShowAllData
Définir Rng = .Range("AJ6", .Cells(.Rows.Count, 1).End(xlUp))
Terminer par
Pour chaque rngCell dans Rng
Si rngCell.Offset(0, 6) > 0 Alors

ElseIf rngCell.Offset(0, 5) > Évaluer("Aujourd'hui() +7") Et _
rngCell.Offset(0, 5).Value <= Evaluate("Aujourd'hui() +120") Alors
rngCell.Offset(0, 6).Value = Date

Set OutApp = CreateObject("Outlook.Application")
Définir OutMail = OutApp.CreateItem(0)

strbody = "Selon mes informations, votre contrat " & Range("A6").Value & " doit être révisé " & rngCell.Offset(0, 5).Value & _
". Il est important que vous examiniez ce contrat dès que possible et que vous m'envoyiez par e-mail toutes les modifications apportées. S'il est renouvelé, veuillez remplir la feuille de couverture du contrat qui se trouve dans le dossier Tout le monde et envoyez-moi la feuille de couverture avec le nouveau contrat original. ."
EmailSendTo = Sheets("sheet1").Range("AJ6").Value
EmailSubject = Sheets("sheet1").Range("A6").Value
Signature = "C:\Documents and Settings\" & Environ("rmm") & _
"\Application Data\Microsoft\Signatures\rm.htm"
On Error Resume Next
Avec OutMail
.To = EmailEnvoieÀ
.CC = "hhh@gmail.com"
.BCC = ""
.Subject = EmailSubject
.Corps = strcorps
.Afficher
Send_Value = Mail_Recipient.Offset(i - 1).Value
Terminer par
En cas d'erreur GoTo 0
Définir OutMail = Rien
Définir OutApp = Rien

Si fin

Suivant rngCell
Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Vous pouvez insérer votre classeur en pièce jointe ici, veuillez voir la capture d'écran ci-dessous :
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-attachment-1.png
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Il n'y a pas de boîte "Télécharger la pièce jointe" de mon côté.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Diane,
S'il n'y a pas de boîte "Télécharger la pièce jointe", vous devez d'abord vous inscrire, puis l'option "Télécharger la pièce jointe" apparaîtra.
Pour vous inscrire, rendez-vous en haut de l'article et cliquez sur S'inscrire bouton pour commencer.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-register.png
Je suis désolé du dérangement.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL