Comment faire fonctionner ma macro"SAISIE" sur les 9 autres bulletins de salaire?

Private Sub Bt_Valider_Click()
    Dim Derlig As Integer


    If Controls("Textbox1") = "" Then
        MsgBox "Vous devez indiquer un salaire catégoriel !", vbExclamation, "ERREUR ... !"
        Controls("Textbox1").SetFocus
        Exit Sub


        If Controls("Textbox2") = "" Then
            MsgBox "Vous devez indiquer un sursalaire !", vbExclamation, "ERREUR ... !"
            Controls("Textbox2").SetFocus
            Exit Sub
        End If
    End If
    Derlig = Range("C11:C2368").End(xlUp).Row + 48


    Range("C" & SpinButton1.Value * 48 - 37) = TextBox1.Value
    Range("C" & SpinButton1.Value * 48 - 36) = TextBox2.Value
    Range("C" & SpinButton1.Value * 48 - 34) = TextBox3.Value
    Range("C" & SpinButton1.Value * 48 - 33) = TextBox4.Value
    Range("C" & SpinButton1.Value * 48 - 32) = TextBox5.Value
    Range("C" & SpinButton1.Value * 48 - 31) = TextBox6.Value
    Range("C" & SpinButton1.Value * 48 - 30) = TextBox7.Value


    If C1 <> 1 Then
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox3.Value = ""
        TextBox4.Value = ""
        TextBox5.Value = ""
        TextBox6.Value = ""
        TextBox7.Value = ""
    End If
End Sub


Private Sub SpinButton1_Change()
    TextBox8.Text = SpinButton1.Value
End Sub

Private Sub UserForm_Initialize()
TextBox8.Text = 1
End Sub