Function Nabsences(n, colonnes As Range)
'l'argument colonnes force le recalcul en cas de modification des colonnes
Dim i, t, x$
i = Application.Match(n, colonnes.Columns(7), 0)
If Not IsNumeric(i) Then Nabsences = "": Exit Function
t = colonnes.Resize(i) 'matrice, plus rapide
n = 0: x = t(2, 1) & t(2, 2)
For i = 2 To UBound(t) - 1
If t(i, 7) <> "" Then n = n + 1
If t(i + 1, 1) & t(i + 1, 2) <> x Then
If n Then Nabsences = Nabsences + 1
n = 0: x = t(i + 1, 1) & t(i + 1, 2)
End If
Next
End Function