XL 2016 Envoyer en PJ une plage de cellule d'une feuille

Bonjour

Je souhaite envoyer par mail une plage de cellule d'une feuille.
Pour l'instant, ça fonctionne mais envoie la feuille en entier.
Je souhaiterai que la PJ commence à partir de la ligne 2
voici la macro que j'utilise
Sub envoimailtutoiement()
Dim OlApp As Object, OlMail As Object
Dim Adr1$, Chemin$, Fichier$, Nom$, Rep_Xlsx

Chemin = ThisWorkbook.Path & "\"
Nom = ActiveSheet.Name
adr = ActiveSheet.Range("a1").Value
ActiveSheet.Copy

Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:=Chemin & Nom & ".xlsx"
ActiveWorkbook.Close True

Set OlApp = CreateObject("Outlook.Application")
Set OlMail = OlApp.CreateItem(0)
Fichier = ThisWorkbook.Path & "\" & Nom & ".xlsx"

With OlMail
.To = adr 'Envoyer à
.Subject = "FACTURES " 'Sujet
.Body = "Bonjour," 'Corps du message
.Attachments.Add Fichier 'Fichier en pièce jointe
.Display
'.Send 'Envoi direct
End With

'OlApp.Quit
Set OlMail = Nothing
Set OlApp = Nothing

Rep_Xlsx = Dir(Chemin & "*.xlsx")
Do While Rep_Xlsx <> ""
Kill Chemin & Rep_Xlsx
Rep_Xlsx = Dir
Loop

End Sub

Merci de votre aide