Reeee~
Je pense avoir compris cette logique de mettre deux références si les scores sont identiques sur des quarts différents !
Je te laisse regarder le fichier & codes ci-dessous
Restant à dispo!
Sub Basket_v_2()
Dim x, y, z As Long
Columns("M:M").ClearContents
Columns("M:M").UnMerge
For x = 1 To Range("F" & Rows.Count).End(xlUp).Row
y = x + 1
Do While Cells(y, 6) <> Cells(x, 6)
If Cells(y, 6) = "" Then Exit Do
y = y + 1
Loop
y = y - 1
For z = x To y
If Cells(z, 11) = Cells(z, 12) Then Cells(x, 13) = Cells(x, 13) & Cells(z, 6)
Next
Range(Cells(x, 13), Cells(y, 13)).Merge
x = y
Next
Columns("M:M").HorizontalAlignment = xlCenter
Columns("M:M").VerticalAlignment = xlCenter
End Sub