MsgBox dernière valeur

Bonjour à tous
Après une heure de recherche sur le net je suis bloqué

Dans mon message box je voudrais si possible le nb de ligne et la dernière valeur de ma sélection.

Ex: je sélectionne A1:E5 dans MsgBox il me met il y a 5 ligne de 'la valeur en E5(la dernière)'

J'ai ceci qui bug à der=:

Sub Count()
der = .SpecialCells(xlLastCell).Value
mycount = Selection.Rows.Count
MsgBox 'Le nombre de lignes dans la sélection = ' & mycount & der
End Sub

Merci beaucoup et bon samedi

Temjeh