Private Sub CommandButton1_Click() 'bouton "Valider"
Dim donnee As Range
Dim y As Byte 'déclare la variable y
If TextBox1.Value= "" Then Exit Sub
If Not IsDate(TextBox1.Value) Then Exit Sub
Set donnee = Sheets("Base").Range("A65536").End(xlUp).Offset(1, 0)
'placement des données
For y = 1 To 5 'boucle sur les Textboxes
If Me.Controls("TextBox" & y).Value <> "" Then
donnee.Offset(0, y - 1).Value = CStr(Me.Controls("TextBox" & y).Value) 'placement de la donnée
End If
Next y
TextBox1.Value = ""
End Sub