Private Sub CommandButton1_Click()
Dim L As Long
If Not IsNumeric(tbLig.Text) Then
tbLig.Text = ""
MsgBox "Vous devez entrer un nombre"
Exit Sub
End If
L = CLng(tbLig.Text)
Rows(L & ":" & L).Insert Shift:=xlDown
Cells(L, 5) = TextBox1.Text
Cells(L, 6) = TextBox2.Text
Cells(L, 7) = TextBox3.Text
Cells(L, 8) = TextBox4.Text