Private Sub CommandButton1_Click()
Dim Trouve(1 To 5) As Boolean ' a modifier en fonction du nombre de ligne
Dim Dl1 As Long ' dernière ligne
Dim Nomfeuille1 As String
Dim i As Byte
For i = 1 To NBlig ' controle des zone
If Controls("Textbox" & i & 1).Value = "" Then Trouve(i) = True
Next i
' enregistrement
With Sheets("Feuil1")
For i = 1 To NBlig
If Trouve(i) = False Then ' pas de controle si la ligne est vide
Dl1 = .Range("A" & .Rows.Count).End(xlUp).Row + 1 ' dernière ligne
.Range("A" & Dl1) = CInt(Controls("Textbox" & i & 1))
.Range("B" & Dl1) = Controls("Textbox" & i & 2)
.Range("c" & Dl1) = Controls("Textbox" & i & 3)
.Range("d" & Dl1) = Controls("Textbox" & i & 4)
.Range("e" & Dl1) = Controls("Textbox" & i & 5)
End If
Next i
End With
Flag = True
For i = 1 To NBlig
Controls("Textbox" & i & 4).Visible = False
Controls("Textbox" & i & 5).Visible = False
Controls("Textbox" & i & 1).Value = ""
Controls("Textbox" & i & 2).Value = ""
Controls("Textbox" & i & 3).Value = ""
Controls("Textbox" & i & 4).Value = ""
Controls("Textbox" & i & 5).Value = ""
Controls("Textbox" & i & 4).Locked = False
Controls("Textbox" & i & 5).Locked = False
Next i
Controls("Textbox" & 14).Visible = True
Controls("Textbox" & 15).Visible = True
Flag = False
End Sub