menus déroulants et format de cellules

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
    For Each Cellule In Target.Cells
        If Cellule.Column = 4 Then
            If Application.CountIf(Range("prout"), Cellule.Value) > 0 Then
                Cellule.Font.Color = Range("prout").Range("A" & Application.Match(Cellule.Value, Range("prout"), 0)).Font.Color
                Cellule.Interior.Color = Range("prout").Range("A" & Application.Match(Cellule.Value, Range("prout"), 0)).Interior.Color
            Else
                Cellule.Font.ColorIndex = xlAutomatic
                Cellule.Interior.ColorIndex = xlNone
            End If
        ElseIf Cellule.Column = 3 Then
            If Application.CountIf(Range("ListRef"), Cellule.Value) > 0 Then
                Cellule.Font.Color = Range("ListRef").Range("A" & Application.Match(Cellule.Value, Range("ListRef"), 0)).Font.Color
                Cellule.Interior.Color = Range("ListRef").Range("A" & Application.Match(Cellule.Value, Range("ListRef"), 0)).Interior.Color
            Else
                Cellule.Font.ColorIndex = xlAutomatic
                Cellule.Interior.ColorIndex = xlNone
            End If
        End If
    Next
End Sub