Private Sub CommandButton4_Click()
If MsgBox("Etes-vous certain de vouloir inscrire " & " " & ComboBox1.Value & " " & ComboBox2.Value & " " & " en Septembre ?", vbYesNo, "Demande de confirmation") = vbYes Then
Feuil3.Activate
Rows(12).Insert
Range("A12").Value = ComboBox1
Range("B12").Value = ComboBox2
Range("C12").Value = TB1
Range("E12").Value = TB3
End If
If Cells(11, 1).Value = "" Then
Rows(11).Delete
End If
TB33.Value = True
Range("tableauMois25345").Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
End Sub