Range Select Application Union - sélection

Bonjour à tous,

Bonjour à tous, je suis depuis 2 jours sur un dilemme.

Je n'arrive pas à solutionner mon problème qui est le suivant :
J'ai un tableau excel et j'aimerai pouvoir copier deux lignes du tableau : une qui restera fixe !
La deuxième ligne serait une sélection faite par l'utilisateur du fichier.
Après que ces deux lignes sont sélectionnés on copie et colle dans un email.
J'arrive à envoyer le mail mais uniquement avec la ligne fixe et j'aimerai vraiment que l'utilisateur du fichier puisse choisir une deuxième ligne qui pourra varier.

Sub envoiPlageCellules_Excel2002()
Dim Dest As String
Dim Cell As Range
For Each Cell In Range("F1:F" & Range("F65536").End(xlUp).Row)
Dest = Dest & ";" & Cell
Next Cell
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
Application.Union(Range("A1:H1"), Demander à l'utilisateur de sélectionner la plage de valeurs.Select
Set myRange = Application.InputBox(prompt := "Sample", type := 8)

With ActiveSheet.MailEnvelope
.Introduction = "Bonjour ............"
.Item.To = "Tata-@email.fr"
.Item.Subject = "Rajouter utilisateur suivant"
.Item.Send
End With
End Sub

Merci de votre aide rigoureuse