Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'masque les étapes----------------------
'compte le nombres de lignes-----------------------------------------------
nbl = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
X = Format(Date, "dd mmmm yyyy")
'si la textbox ne contient pas de valeur numérique, alors msgbox et vider la textbox
If TextBox1.Value = "" Then Exit Sub
If Not IsNumeric(TextBox8) Then
MsgBox "Saisir un Gencod", vbInformation, "Erreur de saisie"
TextBox1.Value = ""
TextBox1.SetFocus
Exit Sub
End If
'cherche la ligne qui correspond au gencod de la textbox et copie colle cette dernière
For j = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(j, 3).Value = CDbl(TextBox1) Then
nbl2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
Rows(j).EntireRow.Copy Sheets(2).Rows(nbl2 + 1)
Sheets(2).Cells(nbl2 + 1, 7) = X
Sheets(1).Rows(j).Delete
End If
Next
Application.ScreenUpdating = True
End Sub