XL 2016 Problème macro "box"

[ludovic_as]

Bonjour,

Je souhaite multiplier le nombre de tableau dans une feuille comprenant des box.
Mais je n'arrive pas à incrémenter celles-ci dans une feuille annexe.

voici la macro :

Sub Tableau ()
‘
‘
‘ Copie d’un tableau dans une feuille annexe
‘
Sheets("Classement").Select
Rows("209:209").Select
Selection.Copy
Rows("210:210").Select
Selection.Insert Shift:=xlDown
‘
‘
‘ Copie d’un tableau dans la feuille principale
‘
Sheets("Désenfumage").Select
Rows("12:19").Select
Application.CutCopyMode = False
Selection.Copy
Rows("20:20").Select
Selection.Insert Shift:=xlDown
‘
‘
‘Affectation des données d’une cellule du nouveau tableau de la feuille principale,
‘à une cellule du nouveau tableau de la feuille annexe
‘
Range("AP24:AQ27").Select
ActiveCell.FormulaR1C1 = "=Classement!R[186]C[-38]"
‘
‘
‘Liage d’une box du nouveau tableau de la feuille principale,
‘à une cellule du nouveau tableau de la feuille annexe
‘Mais la box ne se lie pas à la nouvelle cellule.
‘
ActiveSheet.Shapes.Range(Array("Check Box 234")).Select
With Selection
.Value = xlOff
.LinkedCell = "Classement!$B$210"
.Display3DShading = False
End With
'
'
End Sub