La grille c'est un UserForm voilà le code que j'ai utilisé, je veux ajouter la condition que les numéros saisis doivent être compris entre 1 et 45. Merci!
Private Sub CommandButton1_Click() 'la saisie et l'entregistrement des numéros joués entrées et joués par l'utilisateur,
Dim derligne As Integer, i As Integer
If MsgBox("Confirmez-vous l'ajout des données?", vbYesNo, "confirmation") _
= vbYes Then
With Worksheets("Historique des nums")
derligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 7
.Cells(derligne, i) = Controls("TextBox" & i).Value
Next i
End With
End If
End Sub