Bonjour
Une fonction perso qui fonctionne mais c'est du VBA.
Function nbVides(nomPlage)
' Renvoie le plus grand nombre de cellules vides consécutives
' dans la première colonne d'une plage nommée
Dim nbV1!, nbVMax!, i!
Dim tb()
tb = nomPlage.Value
For i = 1 To UBound(tb)
If tb(i, 1) = "" Then
nbV1 = nbV1 + 1
Else
If nbV1 > nbVMax Then nbVMax = nbV1
nbV1 = 0
End If
Next i
nbVides = nbVMax
End Function