Supprimer le contenu des cellules blanches d'une feuille

For Each Cel In Plages
If Cel.Interior.ColorIndex = xlNone Then Cel.Value = ""
Next

Sub SupprimerCellulesSansFond()
    Dim cellule As Range
    For Each cellule In ActiveSheet.UsedRange
        If Not IsEmpty(cellule) And cellule.Interior.ColorIndex = xlColorIndexNone Then
            If cellule.MergeArea.Cells.Count > 1 Then
                cellule.MergeArea.Cells(1).ClearContents
            Else
                cellule.ClearContents
            End If
        End If
    Next cellule
End Sub