XL 2016 Macro excel 2010 vs 2016

Option Explicit

'c'est inutile de déprotéger/protéger une feuille lue ; seule la
'feuille où on écrit des données doit être déprotégée/protégée !

'comme on écrit sur "user", c'est cette feuille qui doit être
'déprotégée puis protégée.

Sub Imprime1()
  Application.ScreenUpdating = 0: Worksheets("user").Select
  With Feuil5 'feuille lue (remplacer peut-être par Feuil1)
    ActiveSheet.Unprotect 'on déprotège la feuille "user"
    .[B6:B9].Copy [B1]: .[B12:C14].Copy [B7]
    [B6] = .[B11]: [C6] = .[C11]: [D8] = .[D19]
    ActiveSheet.Protect 'on protège la feuille "user"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
      Collate:=True, IgnorePrintAreas:=False
  End With
End Sub

Option Explicit

'c'est inutile de déprotéger/protéger une feuille lue ; seule la
'feuille où on écrit des données doit être déprotégée/protégée !

'Feuil1 = "Ligne" ; password : "1234" ; inutile de la déprotéger
'car on n'écrit pas dessus (et reprotection inutile)

'comme on écrit sur "user", c'est cette feuille qui doit être
'déprotégée puis protégée ; Feuil5 = "User" (pas de password).

Sub Imprime()
  Application.ScreenUpdating = 0: Worksheets("user").Select
  With Feuil1 'la feuille lue est la feuille "Ligne"
    ActiveSheet.Unprotect 'on déprotège la feuille "user"
    'DATE, OF (OF WIND UP), WUP, COMMANDE
    .[B6:B9].Copy: [B1].PasteSpecial -4163
    [B6] = .[B11] 'Article
    [C6] = .[C11] 'donnée inconnue (à droite de Article)
    [B7] = .[B12] 'Type
    '"Min", "Max", Largeur wup (Min & Max)
    .[B13:C14].Copy: [B8].PasteSpecial -4163
    [D8] = .[D19] 'nombre de Mètres
    Application.CutCopyMode = 0: [A12].Select
    ActiveSheet.Protect 'on protège la feuille "user"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
      Collate:=True, IgnorePrintAreas:=False
  End With
End Sub