Sub Vert()
' Touche de raccourci du clavier: Ctrl+Maj+V
'
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
Selection.ShapeRange.Fill.Transparency = 0.7
End Sub
Sub Rouge()
' Touche de raccourci du clavier: Ctrl+Maj+V
'
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Transparency = 0.7
End Sub
Sub Orange()
' Touche de raccourci du clavier: Ctrl+Maj+V
'
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 52
Selection.ShapeRange.Fill.Transparency = 0.7
End Sub