Private Sub CheckBox1_Change()
With CheckBox1
.Caption = IIf(.Value, "Ecriture Rapprochée", "Pas encore Rapprochée")
If ListRecette.ListIndex <> -1 Then
fRec.Cells(ListRecette.ListIndex + 2, 10) = .Caption
fRec.Cells(ListRecette.ListIndex + 2, 11) = IIf(.Value, "", fRec.Cells(ListRecette.ListIndex + 2, 9))
End If
End With
End Sub