plage et envoi corps de message

[MASSJIPE]

Bonjour à Tous,
1) J’ai un code IMPORT pour aller chercher une plage modulable dans la feuille import De A2 à E avec X lignes pour ensuite mettre cette plage dans la feuille envoi mail à partie de la cellule A33 à E mais ça coince
2) je ne sais si je reste sur le même fil ou si je poste une nouvelle discussion sur un envoi corps de message par mail le code EnvoiPlage fonctionne mais c’est pour le modifier
Dans .Item.Subject = "Thème : Journée au 05/10/20 15 Eq .A." c’est de prendre la cellule B3 de la feuille envoi mail
.Item.To = "" c’est de prendre les contacts à partir de la cellule I15 feuille envoi mail
.Item.Cc = "" c’est de prendre les contacts à partir de la cellule I28 feuille envoi mail
Sachant qu’il y a deux équipes une du matin donc la liste mail EQ A et l’autre de l’après-midi liste mail EQ B c’est listes ne sont pas fixe mais modulable
Merci

Sub Import()
Cells.ClearContents
For i = 1 To 5
derligne = Range("A65535").End(xlUp).Row + 1
Sheets(i).Range("A2:E" & Sheets(i).Range("A65535").End(xlUp).Row).Copy Destination:=Sheets("Envoil mail").Cells(derligne, 1)
Next i
 Sheets("IMPORT").Select
    Range("A2:e2").Select
    Selection.Copy
    Sheets("Envoi mail").Select
    Range("A2").Select
    ActiveSheet.Paste
End Sub

Sub EnvoiPlage()
    ' envoi d'une plage de cellules via Outlook
    ' Outlook doit être démarré.
    Dim Plage As Range
    On Error Resume Next
    Set Plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "Aucune plage sélectionnée"
        Exit Sub
    End If
    On Error GoTo 0
    Plage.Select
    ' Affiche le message dans le classeur
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
   '"Item" représente un objet Outlook "MailItem".
       .Item.To = ""
       .Item.Cc = ""
       .Item.Subject = " Journée au 05/10/20 15 Eq .A."
       .Item.display
    End With
End Sub

 

[MASSJIPE]

Re : plage et envoi corps de message

Bonjour
J'ai modifié le classeur avec une feuille sup destinataire lorsque sélectionne la plage il prend aussi les listes mail