macro trop lente

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