Bonjour sweetee,
Un exemple pour choisir une feuille et copier une plage définie:
Sub test()
Dim derlg As Integer
On Error Resume Next
Reponse = InputBox("Saisir la feuille à imprimer", "Choix d'onglet") 'choix de la feuille
Sheets(Reponse).Activate 'sélection de la feuille
derlg = Range("A" & Rows.Count).End(xlUp).Row 'définit la dernière ligne en fonction de la colonne A
Sheets(Reponse).Range("$B$2:$H$" & derlg).Copy 'copie les données de la feuille, de B2 jusqu'à H et dernière ligne
'macro pour envoi par mail
End Sub
En espérant que cela t'aide,
Cordialement,