Bouton ne marche pas sous office 2016

Bonjour...?!!

Sub DevisPlat()

'Mémorise le nom du client
    Range("C2").Copy
    Sheets("Devis").Select
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("DEVIS PLAT").Select
' Mémorise la référence
    Range("C4:H4").Copy
    Sheets("Devis").Select
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(0, 2).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
' Crée le numéro de devis
    Application.Goto Reference:="NouvNoDevis"
    Selection.Copy
    Application.Goto Reference:="DevisSuivant"
    ActiveSheet.Paste
' Prépare le Numéro suivant
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(1, 0).Select
    ActiveWorkbook.Names.Add Name:="DevisSuivant", RefersTo:=ActiveCell
    Application.Goto Reference:="NouvNoDevis"
    ActiveCell = ActiveCell + 1
' Numérote le devis
    Application.Goto Reference:="DevisSuivant"
    NumDev = ActiveCell.Offset(-1, 0)
    ActiveCell.Offset(-1, 0).Copy
    Sheets("DEVIS PLAT").Select
    Application.Goto Reference:="NoDevis"
    ActiveSheet.Paste

' Sauvegarde l'original
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save

' Sauvegarde le devis
Rep = "\\MYBOOKLIVE\client\Documents reseau\DEVIS"
NomDev = Rep + "D_" + Format(NumDev, "000000") + ".xlsx"
ActiveWorkbook.SaveAs Filename:=NomDev _
        , FileFormat:=xlNormal, password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
Feuil1.Shapes("NouveauDevisPlat").Delete
Feuil3.Shapes("NouveauDevisBobines").Delete
Application.DisplayAlerts = False
Sheets("Devis").Delete
ActiveWorkbook.Save

End Sub
Sub DevisBobines()

'Mémorise le nom du client
    Range("C2").Copy
    Sheets("Devis").Select
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("DEVIS BOBINES").Select
' Mémorise la référence
    Range("C4:H4").Copy
    Sheets("Devis").Select
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(0, 2).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
' Crée le numéro de devis
    Application.Goto Reference:="NouvNoDevis"
    Selection.Copy
    Application.Goto Reference:="DevisSuivant"
    ActiveSheet.Paste
' Prépare le Numéro suivant
    Application.Goto Reference:="DevisSuivant"
    ActiveCell.Offset(1, 0).Select
    ActiveWorkbook.Names.Add Name:="DevisSuivant", RefersTo:=ActiveCell
    Application.Goto Reference:="NouvNoDevis"
    ActiveCell = ActiveCell + 1
' Numérote le devis
    Application.Goto Reference:="DevisSuivant"
    NumDev = ActiveCell.Offset(-1, 0)
    ActiveCell.Offset(-1, 0).Copy
    Sheets("DEVIS BOBINES").Select
    Application.Goto Reference:="NoDevisB"
    ActiveSheet.Paste

' Sauvegarde l'original
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Save

' Sauvegarde le devis
Rep = "\\MYBOOKLIVE\client\Documents reseau\DEVIS"
NomDev = Rep + "D_" + Format(NumDev, "000000") + ".xlsx"
ActiveWorkbook.SaveAs Filename:= _
        NomDev, FileFormat:= _
        xlNormal, password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
Feuil1.Shapes("NouveauDevisPlat").Delete
Feuil3.Shapes("NouveauDevisBobines").Delete
Application.DisplayAlerts = False
Sheets("Devis").Delete
ActiveWorkbook.Save

End Sub