Private Sub CommandButton1_Click() 'bouton "Imprimer l'élève 1"
Set O = Worksheets(Me.cbocl1.Value) 'définit l'onglet de la classe
Set B = Worksheets("Bulletins") 'définit l'onglet B
B.Range("C3,F2:H2,F3,H3,B5,F5,C6,F6,B7,E7,B10:H22").ClearContents 'efface les anciennes données
B.Range("F2:H2").Value = "Semestre 1" 'envoie le semestre dans B2:H2
B.Range("F3").Value = Me.cbocl1 'envoie la classe
B.Range("H3").Value = txtEFF1.Value 'envoie l'effectif
B.Range("B5").Value = txtprenom.Value 'envoie le prénom
B.Range("F5").Value = txtNom.Value 'envoie le nom
B.Range("C6").Value = txtdn.Value 'envoie la date de naissance
B.Range("F6").Value = txtln.Value 'envoie le lieu de naissance
B.Range("B7").Value = TextBox11.Value 'envoie le sexe
B.Range("E7").Value = txtcr.Value 'envoie la classe reprise
LI = O.Columns(2).Find(Me.cbocd1.Value, , xlValues, xlWhole).Row 'définit la ligne LI
B.Range("B10").Value = O.Cells(LI, "O").Value 'COMP Composition Française
B.Range("C10").Value = O.Cells(LI, "P").Value 'MS Composition Française
B.Range("D10").Value = O.Cells(LI, "Q").Value 'COEF Composition Française
B.Range("E10").Value = O.Cells(LI, "R").Value 'Points Composition Française
B.Range("F10").Value = O.Cells(LI, "S").Value 'Rang Composition Française
B.Range("G10").Value = O.Cells(LI, "T").Value 'Rang Composition Française
'B.Range("H10").Value = ? 'Appréciation Composition Française
End Sub