VBA Excel : Recherche conditionnelle couleur

Function dire_couleur(lig As Long, col As Byte)
dire_couleur = Cells(lig, col).Interior.ColorIndex
End Function

Sub test()
MsgBox dire_couleur(5, 6) 'cellule F5
End Sub

Function RechercheVCouleur(couleur As Long, plage As Range, index_colonne As Long, Optional occurence As Long) As Variant
    ' recherche en vertical dans une 'plage' de largeur 1 colonne
    ' une cellule de couleur de fond 'couleur'
    '
    ' Le retour dépend de la valeur de index_colonne :
    ' index_colonne = 0 : retourne l'index de la cellule dans la plage (sa position dans plage)
    ' index_colonne < 0 : retourne la valeur de la cellule située x cellules à gauche
    ' index_colonne > 0 : retourne la valeur de la cellule située x-1 cellules à droite
    '
    ' occurence : paramètre optionel, pardéfaut=1
    ' Ex : si occurence=5 et couleur=3 la 5ème cellule rouge sera recherchée
    ' si seulement 4 occurences dans la plage #N/A est retourné
    '
    '
    Dim c As Range, cpt As Long, ok As Boolean
    Application.Volatile
    If occurence < 1 Then occurence = 1
    If plage.Columns.Count > 1 Then RechercheVCouleur = "#VALEUR!"
    For Each c In plage
        If c.Interior.ColorIndex = couleur Then
            cpt = cpt + 1
            If cpt = occurence Then
                Select Case index_colonne
                Case Is < 0
                    RechercheVCouleur = c.Offset(0, index_colonne)
                    ok = True
                    Exit For
                Case 0
                    RechercheVCouleur = c.Row - plage.Row + 1
                    ok = True
                    Exit For
                Case Else
                    RechercheVCouleur = c.Offset(0, index_colonne - 1)
                    ok = True
                    Exit For
                End Select
            End If
        End If
    Next c
    If Not ok Then RechercheVCouleur = "#N/A"
End Function