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