Sub Situation()
'
' Situation Macro
'

'
    Sheets("DEVIS").Select
    Sheets("DEVIS").Copy After:=Sheets(4)
    Sheets("DEVIS (2)").Select
    Sheets("DEVIS (2)").Name = "SITUATION"
    Range("A:K").Select
    Selection.Copy
    Range("A:K").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("F:L").Select
    Range("L1").Activate
    Selection.EntireColumn.Hidden = False
    Range("D1:F1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Columns("L:AH").Select
    Selection.Delete shift:=xlToLeft
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.View = xlPageBreakPreview
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.View = xlNormalView
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-54
    Range("A1").Select
    Columns("B:J").Hidden = True
    Rows("671:725").Delete shift:=xlUp
    Rows("1:12").Delete shift:=xlUp
    Rows("15:41").Delete shift:=xlUp
    Worksheets("SITUATION").Cells.PageBreak = xlNone
    ActiveSheet.PageSetup.PrintArea = "A1:P646"
    Columns("Q:S").Hidden = True
    With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.196850393700787)
.RightMargin = Application.InchesToPoints(0.196850393700787)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(1.18110236220472)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
End With

End Sub