Ignoré des cellules contenant du texte en VBA

Option Explicit
Sub xxx()
Dim c As Range
  With ThisWorkbook.Worksheets("Feuil1").Cells
    For Each c In .SpecialCells(xlCellTypeConstants)
      If VarType(c.Value) = vbString Then c.ClearContents
    Next
  End With
End Sub

Option Explicit
'-----------------------------
Sub xxx()
Dim plage As Range
Dim somme As Double, nbr_txt As Integer, Cptr As Integer

Set plage = Range("A2:F18")
With Application
    .ScreenUpdating = False
    somme = .Sum(plage)
    nbre_txt = .CountA(plage) - .Count(plage)
    For Each cellule In plage
        If .IsText(cellule) Then
            cellule.ClearContents
            Cptr = Cptr + 1
            If Cptr > nbre_txt Then Exit For
        End If
    Next
End With
MsgBox "somme " & somme
End Sub