Application.DisplayAlerts = False
Dim i As Integer, j As Integer
'création du classeur
Workbooks.Add
Dim k As Integer, l As Integer
Cells(1, 1) = cbx_equipe
'remplissage
k = 2
rst.CursorLocation = adUseClient
rst.Open "select nomJoueur from joueur J, equipe E where E.idEquipe = J.idEquipe and E.libEquipe = '" & UserForm1.cbx_equipe & "' order by nomJoueur", cnx2
'valeurs de la liste de validations
For j = 1 To 15
Cells(j, 3) = j + 5
Next j
While Not rst.EOF
Cells(k, 1) = rst!nomJoueur
For j = 2 To rst.RecordCount + 1
Range("B" & j).Select
With selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=R1C3:R15C3"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next j
rst.MoveNext
k = k + 1
Wend