Format automatique VBA...

Sub Macro1()
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("H21").Select
End Sub

Sub Macro1()
    With Selection.Font
        .Name = "Arial"
        .Size = 11
    End With
    With Selection
        .HorizontalAlignment = xlCenter
    End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Couleur As Long

Select Case Target.Value
Case "": Valeur = 8: Couleur = 1
Case 8: Valeur = 4: Couleur = 2
Case 4: Valeur = "": Couleur = 3
End Select

Target.Interior.Color = Choose(Couleur, RGB(255, 0, 0), RGB(237, 125, 49), RGB(255, 255, 255))
Target = Valeur
    With Target.Font
        .Name = "Arial"
        .Size = 11
    End With
    With Target
        .HorizontalAlignment = xlCenter
    End With

Cancel = True
End Sub