Sub iso_suivant2()
' iso_suivant2 Macro
ActiveSheet.Unprotect
Sheets("Listing").Select
Rows("12:15").EntireRow.Hidden = False
Rows("13:13").Copy
Rows("15:15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Rows("13:14").EntireRow.Hidden = True
Sheets("Bordereau PF tuyauterie").Select
Sheets("Bordereau PF tuyauterie").Copy After:=Workbooks( _
"5-Feuilles tuyauterie.xls").Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("5-tuyauterie.xls").Activate
Range("D9:L9").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
MsgBox "renommer l'onglet dans feuilles tuyauterie"
End Sub