Bonjour,
Je me suis juste penché sur ton code de doublon et il y a une petite erreur qui est, je pense, une erreur de frappe !
Dans la seconde boucle (ici corrigée) :
For i = 1 To UBound(tablo, 2)
For iR = i + 1 To UBound(tablo, 2)
If tablo(1, iR) = tablo(1, i) Then
tablo(3, i) = tablo(3, i) + 1
End If
Next iR
Next i
et dans la boucle interne tu fais For iR = 1 + 1 To UBound(tablo, 2)
alors qu'il faudrait For iR = i + 1 To UBound(tablo, 2)
dans le premier cas, tu commence toujours la boucle à 2