Bonjour,
dans Private Sub CommandButton2_Click() et Private Sub CommandButton3_Click() modifier :
xxxxxxx = Me.CheckBox1
en
xxxxxx = IIf(CheckBox1, "X", "")
qui se traduit par si checkbox1 est coché alors = X, sinon = vide
à adapter pour les autres checkbox
A+