Sub test_A()
Colorier_Fond Range("A1:B5"), vbRed, 0
Colorier_Fond Range("D1:F5"), 0, xlThemeColorAccent4, True
End Sub
Sub test_B()
Colorier_Fond Range("A7:B10"), vbBlue, 0
Colorier_Fond Range("D7:F10"), 0, xlThemeColorLight1, True
End Sub
Sub test_C()
Colorier_Fond Range("A12:B18"), vbYellow, 0
Colorier_Fond Range("D12:F18"), 0, xlThemeColorAccent5, True
End Sub
Sub Colorier_Fond(Plage As Range, Couleur, Theme As XlThemeColor, Optional Flag As Boolean = False)
Select Case Flag
Case True
Plage.Interior.ThemeColor = Theme
Case False
Plage.Interior.Color = Couleur
End Select
End Sub