Public Sub ListeJoueurs()
Dim ligne As Integer
Dim etape As Integer
Dim nom As String
Dim l As New Collection
Sheets("Général").Columns("A:A").ClearContents
For etape = 2 To [SIZE=5][COLOR=Red][B]24[/B][/COLOR] [/SIZE]Step 2
For ligne = 3 To 110
nom = Sheets("Etapes").Cells(ligne, etape)
If Trim(nom) <> "" Then
If Not EstDansCollection(nom, l) Then
l.Add (nom)
Sheets("Général").Cells(l.Count + 1, 1) = nom
End If
End If
Next ligne
Next etape
End Sub