Sub Tirage()
Dim LAt As New ListeAléat, T(), L&
Randomize
LAt.Init Feuil1.[F5].Value
T = Feuil1.[E8].Resize(LAt.Count, 3).Value
For L = 1 To UBound(T, 1)
If Left$(T(L, 3), 9) = "Tête de s" Then LAt.Remettre T(L, 2), L
Next L
For L = 1 To UBound(T, 1)
T(L, 2) = LAt.Aléat(L): Next L
Feuil1.[E8].Resize(UBound(T, 1), 2).Value = T
End Sub