Formule pour avoir que des chiffres et plus de nombre

Option Explicit
Sub For_X_to_Next_Ligne()'lancer la boucle
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne A
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
       extractionMots (NoLig)
    Next
    Set FL1 = Nothing
End Sub
'Extraire les données séparées par un ", " dans une chaine de caractères
Sub extractionMots(ByVal ligne As Long)
    Dim Tableau() As String
    Dim i As Integer
    Dim mot As String
    Dim reste As String
    Dim chaine As String
    chaine = Range("A" & ligne).Value
    'découpe la chaine en fonction des ", "
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(chaine, ", ")
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'exécution de l'éditeur de macros
        'Debug.Print Tableau(i)
      If Len(Tableau(i)) > 3 Then
      mot = Tableau(i)
    End If
    Next i
    reste = Left(mot, Len(mot) - 1)
    Range("B" & ligne) = Replace(chaine, mot, reste)
End Sub