Sub Itemscommuns()
Dim communs, i, j, drligne1, drligne2, nb As Long
Dim c, d As Range
Dim comparer1, comparer2 As String
drligne1 = Sheets("BASE 1").UsedRange.Rows.Count
drligne2 = Sheets("BASE 2").UsedRange.Rows.Count
If drligne1 <= drligne2 Then
drligne = drligne2
Else:
drligne = drligne1
End If
For i = 2 To drligne
comparer1 = Sheets("BASE 1").Cells(i, 1) & Sheets("BASE 1").Cells(i, 2)
For j = 2 To drligne
comparer2 = Sheets("BASE 2").Cells(j, 1) & Sheets("BASE 2").Cells(j, 2)
If comparer1 = comparer2 Then communs = communs + 1
Next
Next
MsgBox (communs)
End Sub