Sub Macro1()
ActiveWindow.Zoom = 70
Columns("A").Insert 'insère une colonne
Rows(1).Insert 'insère une ligne
Range("B2").CurrentRegion.BorderAround xlContinuous, xlMedium, xlAutomatic
With Range("B2").CurrentRegion.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Range("B2:H2").Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B2:H2").BorderAround xlContinuous, xlMedium, xlAutomatic
Range("B2:H2").Interior.ColorIndex = 6
Range("i2").Interior.ColorIndex = 45
Range("B2").Value = "OF" 'écrit "OF" en B2
Range("C2").Value = "Opération"
Range("D2").Value = "Poste"
Range("E2").Value = "Poste"
Range("F2").Value = "Nomenclature"
Range("G2").Value = "Alloué"
Range("H2").Value = "Réel"
Range("i2").Value = "Justification"
Range("B2:I2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B2:I2").Select
Selection.Font.Bold = True
Columns("A:A").ColumnWidth = 2.75
Columns("C:C").ColumnWidth = 10.75
Columns("E:E").ColumnWidth = 27.13
Columns("I:I").ColumnWidth = 14.75
End Sub