Fonction pour avoir valeur plus élevé

Bonjour,

On m'a refiler ce bout de code:

Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

et on aimerai que je la modifie pour que je renvoie la valeur la plus élevé sachant que les valeurs sont des dates apparemment il faudrait que je modifie juste "ValeursUniques.Count" mais rien ne marche. La plage de cellule est variable.