Function NbLignesEntre410_411() As Long
Dim lig410, lig411
lig410 = Application.Match(410, Range("A:A"), 0)
lig411 = Application.Match(411, Range("A:A"), 0)
If Not IsError(lig410) And Not IsError(lig411) Then
NbLignesEntre410_411 = Abs(lig410 - lig411) - 1
Else
NbLignesEntre410_411 = 0
End If
End Function