Validation de colonne en 1 doucle click plus surbrillance en couleur

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [C5:C34,D5:D34]) Is Nothing Then
Cancel = True
If Target = "" Then
Target = "1"
Target.Interior.ColorIndex = 6
Else
Target = ""
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub

Voici le code que j'ai utilisé pour la colonne C, j'ai la couleur jaune dan la case c et je voudrais le couleur rouge dans la case D, néanmoins je ne sais pas comment m'y prendre.

Merci de votre aide.

Silvia

Bonjour,

Essayez ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Not Intersect(Target, [C5:V34]) Is Nothing Then
        Select Case Target.Column
            Case Is = 3, 9, 15, 21
                Cancel = True
                If Target = "" Then
                    Target = "1"
                    Target.Interior.ColorIndex = 6
                Else
                    Target = ""
                    Target.Interior.ColorIndex = xlNone
                End If
            Case Is = 4, 10, 16, 22
                Cancel = True
                If Target = "" Then
                    Target = "1"
                    Target.Interior.ColorIndex = 3
                Else
                    Target = ""
                    Target.Interior.ColorIndex = xlNone
                End If
            End Select
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt