@Christophe@

Bonjour Alex

Voici le genre de code que je te propose de mettre dans ton bouton

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Range("A1").Value = CheckBox1.Caption
Else
Range("A1").Value = ""
End If
End Sub

Voila

@Christophe@