Function MaxVide(r As Range)
Dim rc&, i&, x$, deb&
rc = r.Count
For i = 1 To rc
x = Trim(CStr(r(i)))
If deb = 0 Then If x = "" Then deb = i
If x <> "" Or i = rc Then
If i - deb >= MaxVide Then MaxVide = i - deb + (i = rc) * (x = "")
deb = 0
End If
Next
End Function