Bonjour,
voila mon souci je colore mes cellules pour l'instant sela fonction trés bien mais je voudrais appliquer deux fonctions zaza si la case x est mise et popo si elle ne l'est pas je voudrais que la fonction s'active en meme temps que je coche ou pas voila mon code cela fonctionne mais sur une ligne pourriez vous m'aider? je suis sur excel 97

Private Sub Worksheet_Change(ByVal Target As range)
If Target.Column = 1 Then
    With range(Cells(Target.Row, 3), Cells(Target.Row, 36)).Interior
        Select Case Target.Value
       Case "x"
            .ColorIndex = 15
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
    Case Else
            .ColorIndex = xlNone
        End Select
    End With
Worksheets(1).range("zaza").Copy range("g8aj8")
End If

End Sub

merci de me répondre
 pat