XL 2019 Copier coller une case à cocher avec cellules liées.

Sub CopierObjet()
Dim o As Object, MaCase As Object, x#, y#, c As Range
Application.ScreenUpdating = False
With ActiveSheet 'à adapter éventuellement
    '---RAZ---
    For Each o In ActiveSheet.DrawingObjects
        If TypeName(o) = "CheckBox" Then If Replace(o.LinkedCell, "$", "") = "C3" Then Set MaCase = o Else o.Delete
    Next o
    '---duplication---
    .[C3] = False 'True
    x = MaCase.Left - .[B3].Left
    y = MaCase.Top - .[B3].Top
    For Each c In .[B4:B100,D3:D100]
        With MaCase.Duplicate
            .Left = c.Left + x
            .Top = c.Top + y
            .LinkedCell = c(1, 2).Address
            c(1, 2) = False 'True
        End With
    Next c
End With
End Sub

Sub CopierObjet()
Dim o As Object, MaCase As Object, x#, y#, c As Range
Application.ScreenUpdating = False
With ActiveSheet 'à adapter éventuellement
    '---RAZ---
    For Each o In ActiveSheet.OLEObjects
        If TypeName(o.Object) = "CheckBox" Then If Replace(o.LinkedCell, "$", "") = "C3" Then Set MaCase = o Else o.Delete
    Next o
    '---duplication---
    .[C3] = False 'True
    x = MaCase.Left - .[B3].Left
    y = MaCase.Top - .[B3].Top
    For Each c In .[B4:B100,D3:D100]
        With MaCase.Duplicate
            .Left = c.Left + x
            .Top = c.Top + y
            .LinkedCell = c(1, 2).Address
            c(1, 2) = False 'True
        End With
    Next c
End With
End Sub