Private Sub CommandButton1_Click()
Dim trouve As Range
With Sheets(ListeJour.Value)
Set trouve = .Columns("B").Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not trouve Is Nothing Then trouve.Offset(0, 16).Value = IIf(OptionButton1, "J", "L")
End With
End Sub