filtrer immeuble

Private Function filtrer_immeuble_par_nombre(ByRef t_immeuble() As Double, _
                                             ByVal nb_loge As Integer) As Double
    Dim i As Integer
    Dim j As Integer

    For i = 1 To UBound(t_immeuble, 1)
        If t_immeuble(i, 3) > nb_loge Then
            j = j + 1
            ReDim filtrer_immeuble_par_nombre(j, 3)
            filtrer_immeuble_par_nombre(j, 1) = t_immeuble(i, 4)
            filtrer_immeuble_par_nombre(j, 2) = t_immeuble(i, 5)
            filtrer_immeuble_par_nombre(j, 3) = t_immeuble(i, 3)
        End If
    Next i

End Function