Plage et envoi corps de message

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