Function Elimine(joueurs As Range, valeurs As Range, sep As String) As String
Dim mini, i, a(), n
mini = Application.Min(valeurs)
For i = 1 To valeurs.Count
If valeurs(i) = mini Then
ReDim Preserve a(n) 'base 0
a(n) = joueurs(i)
n = n + 1
End If
Next
If n Then Elimine = Join(a, sep)
End Function