compter les espaces

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

'---complément pour la fonction Nabsences en colonnes V:W---
w.Range("V2:W" & w.Rows.Count) = "" 'RAZ
i = Application.Min(Application.Max(1, w.[G:G]), 100)
w.[V2] = 1: w.[V2].Resize(i).DataSeries
w.[W2].Resize(i) = "=Nabsences(V2,A:G)"
w.[W2].Resize(i) = w.[W2].Resize(i).Value 'supprime les formules