LOTO VBA

Bonjour tout le monde,

j'ai besoin de votre aide, je programme le jeu LOTO sur VBA, j'ai un soucis dans la grille où le joueur fait entrer ses numéros je veux ajouter la condition que les numéros entrés doivent être compris entre 1-45 ! voici le code que j'ai utilisé et où je veux ajouter cette condition. Merci d'avance

Private Sub CommandButton1_Click()

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