[b46].Select 'Connu agence
If Sheets("livre de mission").CheckBox1.Value = True Then
txt = "Oui"
If Left(txt, 1) = "@" Then txt = Right(txt, Len(txt) - 1)
txt = Replace(txt, "@", " + ")
ActiveCell.Value = txt
Else
For i = 1 To 1
ActiveSheet.OLEObjects.Item("CheckBox" & i).Object.Value = True
Next
ActiveCell.Value = "Non"
End If