Problème d'envoi de mail en VBA

Bonjour,

Je rencontre deux soucis :

— J'ai créé un script qui fonctionne. En revanche, si je le lance deux fois, il cumule les pièces jointes.
Premier envoi : j'ai 4 pièces jointes, au deuxième 8, au troisième 12…

— J'aimerais aussi, si c'est possible, mettre dans ce corps "lib1 &char(10) & lib2"
Mais je n'arrive pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 Dim Adresse As String, Objet As String, Corps As String
 
 Liste1 = Sheets("Parametres").Range("B57")
 liste2 = Sheets("Parametres").Range("B58")
 liste3 = Sheets("Parametres").Range("B59")
 
 dernligneA = Sheets("IC").Range("A65536").End(xlUp).Row + 1
 dernligneB = Sheets("IC").Range("P65536").End(xlUp).Row + 1
 
 'Sheets("IC").Select
 lib1 = Sheets("IC").Range("A1:N" & dernligneA)
 lib2 = Sheets("IC").Range("P1:T" & dernligneB)
 
Sheets("Ic").Select
ActiveSheet.Range("A1:N" & dernligneA).Select
ActiveWorkbook.EnvelopeVisible = True
 
 
With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour, Veuillez trouver ci-joint le Rapport"
    .Item.To = Liste1
    .Item.CC = liste2
    .Item.BCC = liste3
    .Item.Subject = Libelle
    .Item.Attachments.Add sourceF1
    .Item.Attachments.Add sourceF2
    .Item.Attachments.Add sourceF3
    .Item.Attachments.Add sourceF4
    .Item.Send
End With
 Set Item = Nothing
 Set VariableObjet = Nothing
 Set oBjMail = Nothing
 Set ObjOutlook = Nothing
 Set oBjAttachments = Nothing
 
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With