comment affecter des zones de couleurs de cellules lorsqu'on

[altinea]

voici un code que j'ai réussi a travailler avec l'aimable collaboration de vous tous,mais je n'arrive pas a faire ce que je veux :
a saoir sur certaines colonnes je tiens a avoir la main sur les couleurs que j'affecte au clic de la souris et dans les cellules, par contre sur les autres j'aimerai affecter unique ment par zones exemple :


col un et deux couleur belu et mauve, col 4,5,6,7,8,9,10 couleur rouge vert bleu jaune


et ainsi de suite merci de m'aider cordialement


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Colonne As Integer
Cancel = True 'evite le mode édition lié au double-clic

Colonne = Target.Column

Select Case Colonne

Case Is = 1:
'colonne 1 couleur rouge
With Target.Interior
.ColorIndex = Switch(.ColorIndex = xlNone, 5, _
.ColorIndex = 5, 7, _
.ColorIndex = 7, 0)

End With

Case Is = 2:
'colonne 2 couleur blanc
With Target.Interior
.ColorIndex = Switch(.ColorIndex = xlNone, 5, _
.ColorIndex = 5, 7, _
.ColorIndex = 7, 0)

End With

'etc....
End Select
End Sub


If Target.Interior.ColorIndex = -4142 Then
Target.Interior.ColorIndex = Target.Column + 2
Else
Target.Interior.ColorIndex = -4142
End If

End Sub