Condition et écart d'une ligne colorée

Sub ProchaineLigneVerte()
 Dim Derl As Long, i As Long, j As Long
 Derl = Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp).Row
 For i = 1 To Derl
    If Cells(i, 1).Interior.ColorIndex = 50 Then
        For j = i + 1 To Derl
            k = k + 1
            If Cells(j, 1).Interior.ColorIndex = 50 Then
                Cells(i, 19) = k - 1
                i = j - 1
                Exit For
            End If
        Next
        k = 0
    End If
 Next
End Sub

Option Explicit

Function prochaine_ligne_verte() As Integer
  Dim r As Range
  prochaine_ligne_verte = 0
  Dim nextRow As Range
  
  For Each r In Range("A" & Application.Caller.Row + 1 & ":A" & Cells(Rows.Count, "A").End(xlUp).Row)
    If r.Interior.Color = 7457838 Then
      Set nextRow = r
      Exit For
    End If
  Next r
  
  If nextRow Is Nothing Then
    prochaine_ligne_verte = -1
  Else
    prochaine_ligne_verte = nextRow.Row - Application.Caller.Row - 1
  End If
End Function

Sub ProchaineLigneVerte()
 Dim Derl As Long, i As Long, j As Long
 Derl = Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp).Row
 For i = 2 To Derl
    k = k + 1
    If Cells(i, 1).Interior.ColorIndex = 50 Then
        Cells(i, 19) = k - 1
        k = 0
    End If
 Next
End Sub