Recherche d'une cellule excel en minuscule

Sub Colorer()
Dim Plage As Range
Dim Cel As Range
    Set Plage = Range("A1:C20") ' a adapter
    For Each Cel In Plage
        If Cel <> "" Then
            If Cel.Value = LCase(Cel.Value) Then Cel.Interior.ColorIndex = 6
        End If
    Next Cel
End Sub