Private Sub CommandButton1_Click()
'Q = MsgBox("Vous avez choisi la feuille: " & Sheets(ComboBox1.Value).Name, vbYesNo, "Test")
'If Q = 6 Then
'ici tu mets le code de l'action que tu veux faire sur la feuille choisie
'Exemple avec ton code initial
With Sheets(ComboBox2.Value)
If Me.TextBox1 <> "" Then
LigneEnreg = Me.Enreg + 1
If Me.CheckBox6.Value = True Then .Cells(LigneEnreg, 8) = "OUI"
If Me.CheckBox6.Value = False Then .Cells(LigneEnreg, 8) = "NON"
If Me.CheckBox6.Value = "" Then .Cells(LigneEnreg, 8) = ""
If Me.CheckBox3.Value = True Then .Cells(LigneEnreg, 9) = "OUI"
If Me.CheckBox3.Value = False Then .Cells(LigneEnreg, 9) = "NON"
If Me.CheckBox3.Value = "" Then .Cells(LigneEnreg, 9) = ""
If Me.CheckBox4.Value = True Then .Cells(LigneEnreg, 10) = "OUI"
If Me.CheckBox4.Value = False Then .Cells(LigneEnreg, 10) = "NON"
If Me.CheckBox4.Value = "" Then .Cells(LigneEnreg, 10) = ""
If Me.CheckBox5.Value = True Then .Cells(LigneEnreg, 11) = "OUI"
If Me.CheckBox5.Value = False Then .Cells(LigneEnreg, 11) = "NON"
If Me.CheckBox5.Value = "" Then .Cells(LigneEnreg, 11) = ""
.Cells(LigneEnreg, 1) = Me.TextBox1
.Cells(LigneEnreg, 2) = Me.TextBox2
.Cells(LigneEnreg, 3) = Me.TextBox3
.Cells(LigneEnreg, 4) = Me.TextBox4
.Cells(LigneEnreg, 6) = Me.TextBox5
.Cells(LigneEnreg, 7) = Me.TextBox6
.Cells(LigneEnreg, 12) = Me.TextBox8
.Cells(LigneEnreg, 13) = Me.Chemin
End If
End with
'Else
'Exit Sub
'End If
Me.Hide
End Sub