Private Sub CommandButton1_Click()
' Réaliser grâce à BrunoM45, Excel Download, Créer le 8 juin 2013
Dim NLig As Long, NbLig As Long
' Vérifier si la valeur est numérique
If Not IsNumeric(Me.TextBox1) Then
MsgBox "Merci de saisir un nombre"
Me.TextBox1.SetFocus
Exit Sub
End If
' Récupérer le nombre de ligne que l'on souhaite avoir
NbLig = Me.TextBox1.Value
' Avec la feuille
With Sheets("Feuil1")
' Trouver la prochaine ligne vide
NLig = .Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Row
' Inscrire la valeur
.Range("F" & NLig).Select
.Range("F" & NLig).Value = Me.Choixrep4
' Si le nombre de ligne à copier est supérieur à 1
If NbLig > 1 Then
' Recopier vers le bas d'autant de ligne saisie
.Range("F" & NLig & ":F" & NLig + NbLig - 1).FillDown
End If
End With
End Sub