Bonjour qui pourrait m'aider a raccourcir mon code car procédure trop longue

merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Private Sub CommandButton1_Click()
If Label10.Caption = "1" Then ' LUNDI
Calendrier.Label10.BackColor = Feuil1.Range("F6").Interior.Color
Calendrier.Label13.BackColor = Feuil1.Range("O6").Interior.Color
Calendrier.Label16.BackColor = Feuil1.Range("X6").Interior.Color
Calendrier.Label18.BackColor = Feuil1.Range("L9").Interior.Color
Calendrier.Label21.BackColor = Feuil1.Range("U9").Interior.Color
Calendrier.Label24.BackColor = Feuil1.Range("I12").Interior.Color
Calendrier.Label27.BackColor = Feuil1.Range("R12").Interior.Color
Calendrier.Label30.BackColor = Feuil1.Range("F15").Interior.Color
Calendrier.Label33.BackColor = Feuil1.Range("O15").Interior.Color
Calendrier.Label36.BackColor = Feuil1.Range("X15").Interior.Color
Calendrier.Label39.BackColor = Feuil1.Range("l18").Interior.Color
End If
If Label11.Caption = "1" Then ' MARDI
Calendrier.Label11.BackColor = Feuil1.Range("I6").Interior.Color
Calendrier.Label14.BackColor = Feuil1.Range("R6").Interior.Color
Calendrier.Label17.BackColor = Feuil1.Range("F9").Interior.Color
Calendrier.Label20.BackColor = Feuil1.Range("O9").Interior.Color
Calendrier.Label23.BackColor = Feuil1.Range("X9").Interior.Color
Calendrier.Label26.BackColor = Feuil1.Range("L12").Interior.Color
Calendrier.Label29.BackColor = Feuil1.Range("U12").Interior.Color
Calendrier.Label32.BackColor = Feuil1.Range("I15").Interior.Color
Calendrier.Label35.BackColor = Feuil1.Range("R15").Interior.Color
Calendrier.Label38.BackColor = Feuil1.Range("F18").Interior.Color
Calendrier.Label41.BackColor = Feuil1.Range("O18").Interior.Color
End If
If Label12.Caption = "1" Then ' MERCREDI
Calendrier.Label12.BackColor = Feuil1.Range("L6").Interior.Color
Calendrier.Label15.BackColor = Feuil1.Range("U6").Interior.Color
Calendrier.Label18.BackColor = Feuil1.Range("I9").Interior.Color
Calendrier.Label21.BackColor = Feuil1.Range("R9").Interior.Color
Calendrier.Label24.BackColor = Feuil1.Range("F12").Interior.Color
Calendrier.Label27.BackColor = Feuil1.Range("O12").Interior.Color
Calendrier.Label30.BackColor = Feuil1.Range("X12").Interior.Color
Calendrier.Label33.BackColor = Feuil1.Range("L15").Interior.Color
Calendrier.Label36.BackColor = Feuil1.Range("U15").Interior.Color
Calendrier.Label39.BackColor = Feuil1.Range("I18").Interior.Color
Calendrier.Label42.BackColor = Feuil1.Range("R18").Interior.Color
End If
End Sub
ceci n'est que le début il faut que je fasse c'estte procédur pour fevrier mars etc.....

merci merci