Re : userform
Merci Yann c'est sympa, ceci dit, ce sont des données un peu sensible.
par contre, je peux te mettre le code dans lequel il me manque juste comment copier les formules de la ligne précédente, si tu sais m'aider, c'est avec plaisir :
Private Sub CommandButton1_Click()
Dim L As Long
' Si on n'entre pas un n°, on le signale et on sort de la Sub
If Not IsNumeric(tbLig.Text) Then
tbLig.Text = ""
MsgBox "Vous devez entrer un nombre"
Exit Sub
End If
L = CLng(tbLig.Text)
' Sile n° de ligne est inférieur à 1 ou supérieur à la derniére ligne libre, on le signale et on sort de la Sub
If L < 1 Or L > [a65536].End(xlUp).Row + 1 Then
tbLig.Text = ""
MsgBox "Vous devez entrer une ligne valide"
Exit Sub
End If
' le informations seront copiées au n° de ligne spécifié
Rows(L & ":" & L).Select
Selection.Insert Shift:=xlDown
' Copie des informations du USF dans la feuille
Cells(L, 1) = TextBox1.Text
' Réinitialise l'USF
TextBox1.Text = ""
' copie la cellule précédente
Me.Hide
End Sub