Public Function NbPoints(Rng1 As Range, Rng2 As Range) As Long
Dim Ind As Integer, NbPts As Integer
Dim Tab1 As Variant, Tab2 As Variant
' Initialisation du nombre de points
NbPts = 0
Tab1 = Rng1.Value
Tab2 = Rng2.Value
' Pour chaque cellule
If Tab1(1, 1) = Tab2(1, 1) And Tab1(1, 2) = Tab2(1, 2) Then
NbPoints = 2
Exit Function
End If
End Function