Function MaxZerosConsecutifs(r As Range, nref%)
Dim n%, a(1 To 3)
For Each r In r
If CStr(r) = "0" Then
n = n + 1
If n > a(1) Then a(1) = n: a(3) = r.Column 'a(3) dernière colonne des 0
Else
n = 0
End If
Next
a(2) = a(3) - a(1) + 1 '1ère colonne des 0
If a(1) > nref Then MaxZerosConsecutifs = a Else MaxZerosConsecutifs = ""
End Function