Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
MsgBox "VOUS DEVEZ SELECTIONNER UNE MATIERE"
ComboBox1.SetFocus
Exit Sub
End If

'note 1ere matiere (premiere note)
If ComboBox1.Value = Sheets("session1").Range("ag4") And Application.CountA(Sheets("session1").Range("d4:d27")) > 0 Then
rponse = MsgBox("il y a deja des premieres notes dans cette matiere! est ce la deuxieme note? " & Chr(13) & Chr(10) & "    OUI c'est la deuxieme note  ; NON c'est la premire note", vbYesNoCancel)
If rponse = vbNo Then
If TextBox1 <> "" Then
Sheets("session1").Range("d4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("d5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("d6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("d7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("d8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("d9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("d10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("d11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("d12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("d13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("d14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("d15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("d16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("d17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("d18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("d19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("d20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("d21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("d22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("d23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("d24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("d25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("d26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("d27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("d28").Value = TextBox25.Value
End If
End If

If rponse = vbYes Then
If TextBox1 <> "" Then
Sheets("session1").Range("e4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("e5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("e6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("e7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("e8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("e9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("e10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("e11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("e12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("e13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("e14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("e15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("e16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("e17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("e18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("e19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("e20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("e21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("e22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("e23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("e24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("e25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("e26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("e27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("e28").Value = TextBox25.Value
End If
If rponse = vbCancel Then
MsgBox ("inscription des notes abandonne ")
End If
End If
End If
If ComboBox1.Value = Sheets("session1").Range("ag4") And Application.CountA(Sheets("session1").Range("d4:d27")) = 0 Then
If TextBox1 <> "" Then
Sheets("session1").Range("d4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("d5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("d6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("d7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("d8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("d9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("d10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("d11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("d12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("d13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("d14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("d15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("d16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("d17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("d18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("d19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("d20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("d21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("d22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("d23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("d24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("d25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("d26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("d27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("d28").Value = TextBox25.Value
End If
End If


'note 2 eme matiere
If ComboBox1.Value = Sheets("session1").Range("ag5") And Application.CountA(Sheets("session1").Range("g4:g27")) > 0 Then
rponse = MsgBox("il y a deja des premieres notes dans cette matiere! est ce la deuxieme note? " & Chr(13) & Chr(10) & "    OUI c'est la deuxieme note  ; NON c'est la premire note", vbYesNoCancel)
If rponse = vbNo Then
If TextBox1 <> "" Then
Sheets("session1").Range("g4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("g5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("g6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("g7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("g8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("g9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("g10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("g11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("g12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("g13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("g14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("g15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("g16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("g17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("g18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("g19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("g20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("g21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("g22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("g23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("g24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("g25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("g26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("g27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("g28").Value = TextBox25.Value
End If
End If

If rponse = vbYes Then
If TextBox1 <> "" Then
Sheets("session1").Range("h4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("h5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("h6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("h7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("h8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("h9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("h10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("h11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("h12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("h13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("h14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("h15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("h16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("h17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("h18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("h19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("h20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("h21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("h22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("h23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("h24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("h25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("h26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("h27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("h28").Value = TextBox25.Value
End If
If rponse = vbCancel Then
MsgBox ("inscription des notes abandonne ")
End If
End If
End If
If ComboBox1.Value = Sheets("session1").Range("ag5") And Application.CountA(Sheets("session1").Range("g4:g27")) = 0 Then
If TextBox1 <> "" Then
Sheets("session1").Range("g4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("g5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("g6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("g7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("g8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("g9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("g10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("g11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("g12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("g13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("g14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("g15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("g16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("g17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("g18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("g19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("g20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("g21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("g22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("g23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("g24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("g25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("g26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("g27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("g28").Value = TextBox25.Value
End If
End If
'note 3 eme matiere
If ComboBox1.Value = Sheets("session1").Range("ag6") And Application.CountA(Sheets("session1").Range("j4:j27")) > 0 Then
rponse = MsgBox("il y a deja des premieres notes dans cette matiere! est ce la deuxieme note? " & Chr(13) & Chr(10) & "    OUI c'est la deuxieme note  ; NON c'est la premire note", vbYesNoCancel)
If rponse = vbNo Then
If TextBox1 <> "" Then
Sheets("session1").Range("j4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("j5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("j6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("j7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("j8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("j9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("j10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("j11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("j12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("j13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("j14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("j15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("j16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("j17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("j18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("j19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("j20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("j21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("j22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("j23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("j24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("j25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("j26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("j27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("j28").Value = TextBox25.Value
End If
End If

If rponse = vbYes Then
If TextBox1 <> "" Then
Sheets("session1").Range("k4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("k5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("k6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("k7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("k8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("k9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("k10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("k11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("k12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("k13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("k14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("k15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("k16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("k17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("k18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("k19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("k20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("k21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("k22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("k23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("k24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("k25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("k26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("k27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("k28").Value = TextBox25.Value
End If
If rponse = vbCancel Then
MsgBox ("inscription des notes abandonne ")
End If
End If
End If
If ComboBox1.Value = Sheets("session1").Range("ag6") And Application.CountA(Sheets("session1").Range("j4:j27")) = 0 Then
If TextBox1 <> "" Then
Sheets("session1").Range("j4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("j5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("j6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("j7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("j8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("j9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("j10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("j11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("j12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("j13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("j14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("j15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("j16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("j17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("j18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("j19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("j20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("j21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("j22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("j23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("j24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("j25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("j26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("j27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("j28").Value = TextBox25.Value
End If
End If
'note 4 eme matiere
If ComboBox1.Value = Sheets("session1").Range("ag7") And Application.CountA(Sheets("session1").Range("m4:m27")) > 0 Then
rponse = MsgBox("il y a deja des premieres notes dans cette matiere! est ce la deuxieme note? " & Chr(13) & Chr(10) & "    OUI c'est la deuxieme note  ; NON c'est la premire note", vbYesNoCancel)
If rponse = vbNo Then
If TextBox1 <> "" Then
Sheets("session1").Range("m4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("m5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("m6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("m7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("m8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("m9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("m10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("m11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("m12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("m13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("m14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("m15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("m16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("m17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("m18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("m19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("m20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("m21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("m22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("m23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("m24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("m25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("m26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("m27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("m28").Value = TextBox25.Value
End If
End If

If rponse = vbYes Then
If TextBox1 <> "" Then
Sheets("session1").Range("n4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("n5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("n6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("n7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("n8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("n9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("n10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("n11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("n12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("n13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("n14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("n15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("n16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("n17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("n18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("n19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("n20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("n21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("n22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("n23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("n24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("n25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("n26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("n27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("n28").Value = TextBox25.Value
End If
If rponse = vbCancel Then
MsgBox ("inscription des notes abandonne ")
End If
End If
End If
If ComboBox1.Value = Sheets("session1").Range("ag7") And Application.CountA(Sheets("session1").Range("m4:m27")) = 0 Then
If TextBox1 <> "" Then
Sheets("session1").Range("m4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("m5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("m6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("m7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("m8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("m9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("m10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("m11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("m12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("m13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("m14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("m15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("m16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("m17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("m18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("m19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("m20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("m21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("m22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("m23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("m24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("m25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("m26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("m27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("m28").Value = TextBox25.Value
End If
End If
'note 5 eme matiere
If ComboBox1.Value = Sheets("session1").Range("ag8") And Application.CountA(Sheets("session1").Range("p4:p27")) > 0 Then
rponse = MsgBox("il y a deja des premieres notes dans cette matiere! est ce la deuxieme note? " & Chr(13) & Chr(10) & "    OUI c'est la deuxieme note  ; NON c'est la premire note", vbYesNoCancel)
If rponse = vbNo Then
If TextBox1 <> "" Then
Sheets("session1").Range("p4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("p5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("p6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("p7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("p8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("p9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("p10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("p11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("p12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("p13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("p14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("p15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("p16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("p17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("p18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("p19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("p20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("p21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("p22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("p23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("p24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("p25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("p26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("p27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("p28").Value = TextBox25.Value
End If
End If

If rponse = vbYes Then
If TextBox1 <> "" Then
Sheets("session1").Range("q4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("q5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("q6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("q7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("q8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("q9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("q10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("q11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("q12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("q13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("q14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("q15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("q16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("q17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("q18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("q19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("q20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("q21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("q22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("q23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("q24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("q25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("q26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("q27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("q28").Value = TextBox25.Value
End If
If rponse = vbCancel Then
MsgBox ("inscription des notes abandonne ")
End If
End If
End If
If ComboBox1.Value = Sheets("session1").Range("ag8") And Application.CountA(Sheets("session1").Range("p4:p27")) = 0 Then
If TextBox1 <> "" Then
Sheets("session1").Range("p4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("p5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("p6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("p7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("p8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("p9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("p10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("p11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("p12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("p13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("p14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("p15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("p16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("p17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("p18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("p19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("p20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("p21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("p22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("p23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("p24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("p25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("p26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("p27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("p28").Value = TextBox25.Value
End If
End If
'note 6 eme matiere
If ComboBox1.Value = Sheets("session1").Range("ag9") And Application.CountA(Sheets("session1").Range("s4:s27")) > 0 Then
rponse = MsgBox("il y a deja des premieres notes dans cette matiere! est ce la deuxieme note? " & Chr(13) & Chr(10) & "    OUI c'est la deuxieme note  ; NON c'est la premire note", vbYesNoCancel)
If rponse = vbNo Then
If TextBox1 <> "" Then
Sheets("session1").Range("s4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("s5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("s6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("s7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("s8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("s9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("s10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("s11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("s12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("s13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("s14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("s15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("s16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("s17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("s18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("s19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("s20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("s21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("s22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("s23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("s24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("s25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("s26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("s27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("s28").Value = TextBox25.Value
End If
End If

If rponse = vbYes Then
If TextBox1 <> "" Then
Sheets("session1").Range("t4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("t5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("t6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("t7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("t8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("t9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("t10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("t11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("t12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("t13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("t14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("t15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("t16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("t17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("t18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("t19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("t20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("t21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("t22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("t23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("t24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("t25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("t26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("t27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("t28").Value = TextBox25.Value
End If
If rponse = vbCancel Then
MsgBox ("inscription des notes abandonne ")
End If
End If
End If
If ComboBox1.Value = Sheets("session1").Range("ag9") And Application.CountA(Sheets("session1").Range("s4:s27")) = 0 Then
If TextBox1 <> "" Then
Sheets("session1").Range("s4").Value = TextBox1.Value
End If
If TextBox2 <> "" Then
Sheets("session1").Range("s5").Value = TextBox2.Value
End If
If TextBox3 <> "" Then
Sheets("session1").Range("s6").Value = TextBox3.Value
End If
If TextBox4 <> "" Then
Sheets("session1").Range("s7").Value = TextBox4.Value
End If
If TextBox5 <> "" Then
Sheets("session1").Range("s8").Value = TextBox5.Value
End If
If TextBox6 <> "" Then
Sheets("session1").Range("s9").Value = TextBox6.Value
End If
If TextBox7 <> "" Then
Sheets("session1").Range("s10").Value = TextBox7.Value
End If
If TextBox8 <> "" Then
Sheets("session1").Range("s11").Value = TextBox8.Value
End If
If TextBox9 <> "" Then
Sheets("session1").Range("s12").Value = TextBox9.Value
End If
If TextBox10 <> "" Then
Sheets("session1").Range("s13").Value = TextBox10.Value
End If
If TextBox11 <> "" Then
Sheets("session1").Range("s14").Value = TextBox11.Value
End If
If TextBox12 <> "" Then
Sheets("session1").Range("s15").Value = TextBox12.Value
End If
If TextBox13 <> "" Then
Sheets("session1").Range("s16").Value = TextBox13.Value
End If
If TextBox14 <> "" Then
Sheets("session1").Range("s17").Value = TextBox14.Value
End If
If TextBox15 <> "" Then
Sheets("session1").Range("s18").Value = TextBox15.Value
End If
If TextBox16 <> "" Then
Sheets("session1").Range("s19").Value = TextBox16.Value
End If
If TextBox17 <> "" Then
Sheets("session1").Range("s20").Value = TextBox17.Value
End If
If TextBox18 <> "" Then
Sheets("session1").Range("s21").Value = TextBox18.Value
End If
If TextBox19 <> "" Then
Sheets("session1").Range("s22").Value = TextBox19.Value
End If
If TextBox20 <> "" Then
Sheets("session1").Range("s23").Value = TextBox20.Value
End If
If TextBox21 <> "" Then
Sheets("session1").Range("s24").Value = TextBox21.Value
End If
If TextBox22 <> "" Then
Sheets("session1").Range("s25").Value = TextBox22.Value
End If
If TextBox23 <> "" Then
Sheets("session1").Range("s26").Value = TextBox23.Value
End If
If TextBox24 <> "" Then
Sheets("session1").Range("s27").Value = TextBox24.Value
End If
If TextBox25 <> "" Then
Sheets("session1").Range("s28").Value = TextBox25.Value
End If
End If

End Sub