Remplacement d'une valeur si dépassement

=SI(ET(B2>=0;B2<=190);B2;(INDEX(B:B;MAX(SI(($B$2:B2>=0)*($B$2:B2<=190);LIGNE($B$2:B2);0)))+INDEX(B:B;MIN(SI((B2:$B$11>=0)*(B2:$B$11<=190);LIGNE(B2:$B$11);9^9))))/2)

Option Base 1

Sub rendre_cohérent()
Dim vTab()
Set vZone = Selection()
nb = vZone.Rows.Count
ReDim vTab(nb)

pred = 0: succ = 0
For i = 1 To nb
    If vZone(i) >= 0 And vZone(i) <= 190 Then
        vTab(i) = vZone(i)
        pred = i
    Else
        While (vZone(i) < 0 Or vZone(i) > 190) And i <= nb
            i = i + 1
        Wend
        i = i - 1
        succ = i
        
        If pred = 0 Or succ = nb Then vMoy = "" Else vMoy = (vZone(pred) + vZone(succ + 1)) / 2
        pred = WorksheetFunction.Max(1, pred)
        For j = pred + 1 To succ
            vTab(j) = vMoy
        Next j
        
        pred = i
    End If
Next i

Range("c2").Resize(nb, 1) = WorksheetFunction.Transpose(vTab)
End Sub