Erreur de compilation sur macro enregistrée

Bonjour !

Alors, j'ai enregistré une macro pour copier une plage de cellule en conservant valeurs, mise en forme et contrôles activeX et la coller dans un nouveau document excel.

voilà le code de la macro, en rouge la ligne où cela bug :

Sub try()

'

' try Macro

'

'

Range("C1:N76").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Add

Range("C1").Select

ActiveSheet.DropDowns.Add(530.25, 96, 105, 14.25).Select

ActiveSheet.DropDowns.Add(306, 443.25, 135.75, 18).Select

ActiveSheet.DropDowns.Add(306, 405.75, 135.75, 16.5).Select

ActiveSheet.DropDowns.Add(306, 423.75, 135.75, 14.25).Select

ActiveSheet.DropDowns.Add(531.75, 550.5, 97.5, 15.75).Select

ActiveSheet.DropDowns.Add(306, 553.5, 135.75, 16.5).Select

ActiveSheet.DropDowns.Add(434.25, 534.75, 96, 17.25).Select

ActiveSheet.DropDowns.Add(306, 607.5, 135.75, 17.25).Select

ActiveSheet.DropDowns.Add(306, 620.25, 135.75, 14.25).Select

ActiveSheet.DropDowns.Add(306, 634.5, 135.75, 15.75).Select

ActiveSheet.DropDowns.Add(306, 647.25, 135.75, 15.75).Select

ActiveSheet.DropDowns.Add(530.25, 440.25, 120, 17.25).Select

ActiveSheet.DropDowns.Add(530.25, 607.5, 96.75, 17.25).Select

ActiveSheet.DropDowns.Add(530.25, 620.25, 96.75, 14.25).Select

ActiveSheet.DropDowns.Add(530.25, 647.25, 96.75, 15.75).Select

ActiveSheet.DropDowns.Add(530.25, 503.25, 120, 18.75).Select

ActiveSheet.DropDowns.Add(530.25, 96, 105, 14.25).Select

ActiveSheet.Buttons.Add(531.75, 78.75, 163.5, 16.5).Select

ActiveSheet.Buttons.Add(532.5, 519, 161.25, 15.75).Select

ActiveSheet.Buttons.Add(308.25, 588, 168, 15).Select

ActiveSheet.Paste

Columns("C:C").ColumnWidth = 21.5

Columns("D:D").ColumnWidth = 21.5

Columns("E:E").ColumnWidth = 21.5

Columns("F:F").ColumnWidth = 21.5

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=

xlNone , SkipBlanks:=False, Transpose:=False

ActiveWindow.SmallScroll Down:=0

Sheets("Feuil1").Select

Sheets("Feuil1").Name = "Fiche perso salarié"

ActiveWindow.SmallScroll Down:=3

ActiveSheet.Shapes.Range(Array("Button 19")).Select

Selection.Delete

ActiveSheet.Shapes.Range(Array("Button 18")).Select

Selection.Delete

ActiveSheet.Shapes.Range(Array("Button 20")).Select

Selection.Delete

ActiveWindow.SmallScroll Down:=12

Columns("G:N").Select

Range("G16").Activate

Selection.EntireColumn.Hidden = True

Windows("Administration du personnel Maj4macro.xlsm").Activate

End Sub

Je ne peux pas joindre le document car c'est une document professionnel donc excusez moi par avance de demander une aide à l'aveugle

En revanche, je ferai de mon mieux pour répondre aux questions

Merci!

Bonjour,

Sans le fichier pas évident et surtout avec le code en vrac comme ça. Remplace la ligne suivante :

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone , SkipBlanks:=False, Transpose:=False

par :

Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone , SkipBlanks:=False, Transpose:=False

Car je ne vois pas une destination sélectionnée donc il manque une référence de cellule de destination.

Cellule de destination à adapter selon besoin

Merci!