Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 11/08/03 par
'
'
Range("A1,C9,B12,E15,H10:H11,G4:H4,F6:F7,F12").Select
Range("F12").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("E4,C17,C13,D12,D8,C6,B7,A19,B21,B16,A14,A9").Select
Range("A9").Activate
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Range("G15,H15,H20,G20:G21,F19,G17,J6,H7,E10,E6").Select
Range("E6").Activate
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("E2,A2,A4,B4,B2,B8,C12,C12,D10,D16
17,C21,D21").Select
Range("D21").Activate
With Selection.Interior
.ColorIndex = 42
.Pattern = xlSolid
End With
Range("F9,E12,E10,E8,C11,B10,A12,B15,C16,E14,D13,F14,G12,G9,F23").Select
Range("F23").Activate
With Selection.Interior
.ColorIndex = 39
.Pattern = xlSolid
End With
Range("G11,E13,D15,C15,B13,C10,C7,C3,D2,D1,G1,F3").Select
Range("F3").Activate
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Range("A6,B5,B11,B14,A17,B19,B17,B18,C20,C14,D14,F11,G6,F5,F4").Select
Range("F4").Activate
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
Range("D11").Select
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
Range("E9").Select
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
Range("E7,D5,C4,C1,E1,F1,G3,F17,E19,E21:E22").Select
Range("E21").Activate
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
Range("D14").Select
Selection.Interior.ColorIndex = xlNone
Range("C14").Select
Selection.Interior.ColorIndex = xlNone
Range("H10,C7,B7,B4").Select
Range("B4").Activate
Selection.Interior.ColorIndex = xlNone
End Sub