Recherche Max critère cellule de gauche

Function DateLaPlusRecente(Plage As Range, Critere As String) As Date
Dim Cel As Range
Dim DateT As Date
    'On balaye chaque cellule de la plage
    For Each Cel In Plage
        'Si la valeur de la cellule est égale au critère, alors
        If Cel = Critere Then
            'Si la cellule décalée de 1 colonne contient une date plus récente que celle mémorisée (DateT)
            'Alors, on mémorise cette nouvelle date.
            If Cel.Offset(0, 1) > DateT Then DateT = Cel.Offset(0, 1)
        End If
    Next Cel
    'La fonction renvoie la date la plus récente pour un critère donné
    DateLaPlusRecente = DateT
End Function