Option Explicit
Sub Inserer_Cases_a_cocher_Liees()
Dim rngCel As Range
Dim ChkBx As CheckBox
For Each rngCel In Selection
With rngCel.MergeArea.Cells
If .Resize(1, 1).Address = rngCel.Address Then
.NumberFormat = ";;;"
Set ChkBx = ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height)
With ChkBx
'valeur initiale :
.Value = xlOff 'pourrait être True ou False
'cellule liée
.LinkedCell = rngCel.MergeArea.Cells.Address
End With
End If
End With
Next rngCel
End Sub