Compare range array

Public Function Compare_Range_Array(Plage As Range, tblo As Variant)
Dim C, Tref(), Nref(), i As Long, N As Long

If VarType(tblo) > vbArray Then
  For Each C In tblo
    N = N + 1
    ReDim Preserve Tref(1 To N)
    Tref(N) = C
  Next C
  ReDim Nref(1 To N)
Else
    ReDim Preserve Tref(1 To 1)
    Tref(1) = tblo
    ReDim Nref(1 To 1)
End If

For Each C In Plage
  If C.Value <> "" Then
    For i = LBound(Tref) To UBound(Tref)
      If Tref(i) <> "" Then
        If C = Tref(i) Then
          Nref(i) = 1
          Exit For
        End If
      End If
    Next i
  End If
Next C

For i = LBound(Tref) To UBound(Tref)
  Compare_Range_Array = Compare_Range_Array + Nref(i)
Next i

End Function