Function Dormant(Plage)
T = Plage: N = 0: Dormant = ""
For i = 1 To UBound(T, 2)
If T(1, i) = 0 Then
N = N + 1
If N = 10 Then Dormant = "X": Exit Function
Else
N = 0
End If
Next i
End Function
Function Alerte3j(Plage)
T = Plage: N = 0: Alerte3j = ""
For i = 1 To UBound(T, 2)
If T(1, i) = 0 Then
N = N + 1
If N = 3 Then Alerte3j = "X": Exit Function
Else
N = 0
End If
Next i
End Function