Private Sub Worksheet_Change(ByVal Target As Range)
Dim MonObjet
If Not Intersect(Target, Range("A8:A13")) Is Nothing Then
MonObjet = "CheckBox" & Target.Row - 7
ActiveSheet.OLEObjects(MonObjet).Object.Caption = Target.Value
End If
End Sub