XL 2016 soustraire texte

Sub Copie()
For Each c In Range("C2:F9")
    If c.Interior.Color = vbWhite Then
        c.Offset(10, 0) = c
    End If
Next c
End Sub

Sub Copier()
Dim source As Range, ncol%, dest As Range, tablo, i&, j%
Set source = [C2:F9] 'à adapter
ncol = source.Columns.Count
Set dest = [C12] '1ère cellule de destination, à adapter
tablo = source.Resize(source.Rows.Count + 1) 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo) - 1
    For j = 1 To ncol
        If tablo(i, j) <> "" Then If source(i, j).Interior.ColorIndex <> xlNone Then tablo(i, j) = ""
Next j, i
'---restitution---
With dest.Resize(i - 1, ncol)
    .Value = tablo
    .Borders.Weight = xlThin 'bordures
End With
End Sub