Function Dernier(Plage)
Dim T, DerL%, i%, T2, Année
T = Plage
DerL = UBound(T)
For i = UBound(T, 2) To 2 Step -1
If T(DerL, i) <> "" Then
If T(DerL, i) Like "* - *" Then
T2 = Split(T(DerL, i), " - ")
Dernier = T2(UBound(T2))
Année = T(1, i): Exit For
Else
Dernier = T(DerL, i)
Année = T(1, i): Exit For
End If
End If
Next i
If Dernier = "" Then
Dernier = "Pas de correction"
Else
Dernier = Dernier & "/" & Année
End If
End Function