Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[Ckb].Visible = False
If Target.Count = 1 Then
If Not Intersect(Target, [__Anonymous_Sheet_DB__0[avis mds]]) Is Nothing Then
With [Ckb]
.LinkedCell = vbNullString
.Left = Target.Left
.Top = Target.Top
.Value = Target = True
.Visible = True
.LinkedCell = Target.Address
End With
End If
End If
End...