Code:
Private Sub CommandButton7_Click()
Dim RefArt as string
Dim DerligRef As Integer
RefArt = TextBox1.Value
With Sheets("RECEPTION PRESSE")
DerligRef = Range("RECEPTION PRESSE!A60000").End(xlUp).Row
Cells(DerligRef, 1) = RefArt
End With
TextBox1.Visible = False
TextBox2 = ""
TextBox2.Visible = True
TextBox2.SetFocus
CommandButton7.Visible = False
CommandButton8.Visible = True
End Sub