Sub Macro_vert()
couleur 4
End Sub
Sub Macro_bleu()
couleur 8
End Sub
Sub Macro_orange()
couleur 44
End Sub
Sub Macro_blanc()
couleur xlNone
End Sub
Sub couleur(x%)
ActiveSheet.Unprotect ""
With Selection
If x = xlNone Then
.ClearContents
With .Font
.Name = "Arial"
.Size = 14
End With
Else
.Value = 1
.Font.ColorIndex = x
End If
.Interior.ColorIndex = x
End With
ActiveSheet.Protect "", True, True, True
End Sub
Sub Macro_baisseT()
baisse_monte "m"
End Sub
Sub Macro_monteeT()
baisse_monte "k"
End Sub
Sub baisse_monte(x$)
ActiveSheet.Unprotect ""
With Selection
.Value = x
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Font
.Name = "Wingdings 3"
.Bold = True
.ColorIndex = 0
.Size = 18
End With
.Interior.ColorIndex = xlNone
End With
ActiveSheet.Protect "", True, True, True
End Sub
Sub Macro_changt()
ActiveSheet.Unprotect ""
ActiveCell.Font.Size = 38
ActiveCell.Value = "/"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Font
.Name = "Arial"
.ColorIndex = 0
.Bold = True
End With
.Interior.ColorIndex = xlNone
End With
ActiveSheet.Protect "", True, True, True
End Sub