Private Sub CommandButton1_Click()
Dim LI As Integer
Dim COL As Integer
LI = Me.chercher.ListIndex + 4
COL = Me.ComboBox1.ListIndex * 2 + 17
Worksheets("Base de Données").Cells(LI, COL).Value = "X"
Worksheets("Base de Données").Cells(LI, COL + 1).Value = IIf(Me.OptionButton1.Value = True, Me.OptionButton1.Caption, Me.OptionButton2.Caption)
Unload Me
End Sub