Trouver des doublons et les afficher

Bonjour

Mon fichier contient sur la 1ère feuille (Arbitre) une base de clubs (colonne B) évoluant dans des championnats (colonne A) et l'arbitre qui correspond (colonne D).

Dans la seconde feuille, je souhaite vérifier qu'il n'existe pas de doublon c'est à dire qu'un arbitre n'apparaisse pas deux fois dans la feuille Arbitre: si c'est le cas, j'aimerai faire apparaître dans la colonne S les niveaux des équipes (pour un même club) qui ont le même arbitre dans la ligne correspondante de la feuille DAFA.

J'ai mis en surligné jaune dans la feuille DAFA ce que cela doit donner avec l'exemple pris.

Pour information, dans mon fichier, je récupère dans la 2ème feuille les clubs sans arbitre et les clubs où l'arbitre n'a pas arbitré à l'aide d'une macro

Merci

PS : j'ai masqué dans le fichier les colonnes qui ne servent pas pour ma demande.

Bonjour,

à tester,

Sub test()
    Dim Daf  As Worksheet, Arb  As Worksheet, rw As Long, rw2 As Long, i As Long, j As Integer
    Dim plgclub As String, plgArbitre As String, t As String, r, Arbitre
    Application.ScreenUpdating = False
    Set Daf = Sheets("DAFA")
    Set Arb = Sheets("Arbitre")
    rw = Arb.Cells(Rows.Count, "A").End(xlUp).Row
    plgclub = "B5:B" & rw
    plgArbitre = "D5:D" & rw
    Arbitre = Array("Arbitre A1", "Arbitre B1", "Arbitre C1")  'à adapter

    For i = 5 To rw
        For j = LBound(Arbitre) To UBound(Arbitre)
          If Arb.Cells(i, "B") <> "" Then
            t = "SUMPRODUCT((Arbitre!" & plgclub & "=Arbitre!B" & i & ")*(Arbitre!" & plgArbitre & "=""" & Arbitre(j) & """))"
            r = Evaluate(t)

            If r > 1 Then
                rw2 = Application.Match(Arb.Cells(i, "B"), Daf.Range("A:A"), 0)
                Daf.Cells(rw2, "S") = Daf.Cells(rw2, "S") & Arb.Cells(i, "A") & "/"
            End If
          End If
        Next j
    Next i
End Sub