Sub MAJ()
Dim t, a$(), d1 As Object, d2 As Object, i&, x$, y$
With [A1].CurrentRegion.Resize(, 2)
t = .Value 'matrice, plus rapide
ReDim a(1 To UBound(t), 1 To 1)
Set d1 = CreateObject("Scripting.Dictionary")
d1.CompareMode = vbTextCompare 'la casse est ignorée
Set d2 = CreateObject("Scripting.Dictionary")
d2.CompareMode = vbTextCompare 'la casse est ignorée
'---remplissage des Dictionary---
For i = 2 To UBound(t)
x = t(i, 1) & t(i, 2)
y = Replace(Replace(x, "-", ""), " ", "")
d1(y) = d1(y) + 1 'comptage
d2(x) = d2(x) + 1 'comptage
Next
'---remplissage du tableau a---
a(1, 1) = "Problème" 'titre
For i = 2 To UBound(t)
x = t(i, 1) & t(i, 2)
If d1(Replace(Replace(x, "-", ""), " ", "")) > 1 Then If d2(x) = 1 Then a(i, 1) = "Problème"
Next
'---restitution en colonne C---
.Columns(3) = a
End With
End Sub