Sub Table()
Sheets("table").Select
ActiveSheet.Unprotect
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Couleur vbRed
End Sub
Sub Couleur(C)
Application.ScreenUpdating = False
Worksheets("table").Activate
ActiveSheet.Unprotect
Semaine = [A5]
Ligne = Application.Match(Semaine, [A6:A200], 0)
Cells(Ligne + 5, "C").Select
Range(Cells(Ligne + 5, "B"), Cells(Ligne + 8, "T")).Font.Color = C
End Sub