Copier et collé sur nouvelle feuille un chekbox

Bonjour à tous ,

Un petit souci qui va me faire devenir fou , je n'arrive pas à copier/coller une feuille contenant des chekbox

j'ai d'abord tenté

    Selection.Copy
    Workbooks.Add
      With ActiveSheet.Range("A1").End(xlUp)
            .PasteSpecial Paste:=xlPasteAll
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
            .Application.CutCopyMode = False
        End With

mais cela ne prend pas les chekbox .

En copiant la feuille dans un nouveau classeur a la main les chekbox sont bine pris en compte.

j'ai donc lancé un enregistrement de macro

Sheets("ImpressionOnline").Select
    ActiveSheet.CheckBoxes.Add(377.5, 147.5, 151, 14).Select
    ActiveSheet.CheckBoxes.Add(377.5, 160.5, 153, 14.5).Select
    ActiveSheet.CheckBoxes.Add(219.5, 263, 15, 17).Select
    ActiveSheet.CheckBoxes.Add(369.5, 262, 15, 17.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 324.5, 79.5, 28).Select
    ActiveSheet.CheckBoxes.Add(377.5, 475, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 503, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 531, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 559, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 618.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 646.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 674.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 702.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 762, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 790, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 818, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 846, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 905.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 933.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 961.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 989.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1049, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1077, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1105, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1133, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1220.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1248.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1276.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1336, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1364, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1392, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1420, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1479.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1507.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1535.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1563.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1623, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1651, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1679, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1707, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1766.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1794.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1822.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1850.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 352.5, 75.5, 28).Select
    ActiveSheet.CheckBoxes.Add(377.5, 380.5, 75.5, 28).Select
    ActiveSheet.CheckBoxes.Add(377.5, 408.5, 75.5, 28).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1910, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1938, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1966, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 1994, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2053.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2081.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2109.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2137.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2197, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2225, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2253, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2281, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2340.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2368.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2396.5, 13, 16.5).Select
    ActiveSheet.CheckBoxes.Add(377.5, 2424.5, 13, 16.5).Select
    Selection.Copy
    ChDir "C:\Users\lmahboubi\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\moi\Desktop\Classeur3.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

impossible a exploiter , lorsque je la lance cela rajoute des chekbox pardessus celle d'origine.

comment fair pour simplement copier coller une feuille complète comprenenant des chekbox

En vous remerciant pour votre aide

Bonjour,

Quelque chose comme ceci n'irait pas ?

Sheets("ImpressionOnline").copy after:= sheets(numéro de la feuille après laquelle tu veux copier ça)

Ahhh les enregistrements de macro.....

En fait un simple copy suffit et derrière je copie colle la feuille sur elle même en valeurs pour supprimer les formules.

Merci de ton aide.