Private Sub CommandButton1_Click()
Dim derli&, z&, w, x
derli = Sheets("test").Range("C" & Rows.Count).End(xlUp).Row
z = derli + 3: w = z + 1: x = z + 3
Rows(20).Copy Destination:=Rows(z)
Sheets("test").Cells(z, "C").Resize(, 2) = Array(TextBox1, TextBox2)
Range("A" & w & ":M" & x).Name = "risque" & TextBox2
Unload Me
End Sub