Sélection des 10 dernières lignes + envoi par mail

Bonjour à tous,

J'aimerai pouvoir copier les 10 dernières lignes de mon tableau et les envoyer par mail.

Je travaille sur ceci, déjà pour essayer de sélectionner la dernière et l'envoyer mais sans succès.

Sub envoiPlageCellules_Excel()
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = "mail@.com"
.Item.Subject = Range("A3")
.Item.Send
End With
End Sub

Cela sélectionne toujours le tableau complet et non pas la dernière ligne.

Est ce que vous pouvez m'aider à éclairer ma lanterne ?

D'avance merci pour l'aide.

Bonjour,

Ne faut-il pas sélectionner la plage en question pour ça marche ?

Voici un essai :

with activesheet
    dl = .Cells(.rows.count, 1).end(xlup).row 'derniere vide en colonne 1
    if dl < 10 then exit sub
    with .range("A:G") 'colonnes ciblées
        .rows(dl- 9 & ":" & dl).select '10 dernières lignes sélectionnées
    end with
end with

'suite de code mailenvelope ....

Cdlt,